Top 10k strings from ZX-Review 1994.01 (1994)(Inforkom)(ru).fdi in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [FDI] (TOSEC-v2006-06-06) /
Back to the directory listing
103
72
49
32 0
29 .
28 1W H A M ! T H E M U S I C B O X
27 .
26 .
26 .
23
23
22 .
22 .
20 ;
20
19 .
19 .
19 .
18 .
18 .
18
18
17 .
17 .
17 -
16 .
16 ;
15 .
15 .
15 "WHAM+AY"
15
14 0
14 .
14
14
14
13 .
12 .
12 .
12
11 .
11 -
11 i S - D O S
10 0
10
10
9 :
9 .
9
9
8 0
8 .
8 .
7 1A D V E N T U R E G A M E S
7 0
7 0
7 -----------------------------------------------------------------
7 *********************************
7
7
6 0
5 0
5 0
5 0
5 .
5 ---------------------------------------------------------------
5
5
5
5
4 :
4 :
4 :
4 :
4 :
4 :
4 :
4 0
4 0
4 0
4 - *********************************
4 ,
4 ).
4 *********************************
4 T R - D O S
4
4
4
3 :
3 :
3 :
3 :
3 0
3 0
3 .
3 -93 N 5-6,
3 - 3.
3 ,
3 ).
3 "
3 "
3 IskraSOFT
3 "WHAM".
3
3
3
3
2 ?
2 ?
2 : 33, 202, 92, 1, 112, 0,
2 :
2 :
2 :
2 :
2 :
2 :
2 :
2 0ounters music-
2 0etitions
2 0
2 0
2 0
2 ..."
2 .
2 .
2 - 9B9A9C9C9B9A9C9B9A9C9C9B9A9C9B9A
2 - 2.
2 - 2)
2 -
2 -
2 ).
2 ).
2 ).
2 ).
2 ).
2 ).
2 )
2 ".
2 ".
2 ".
2 ".
2 ".
2 ".
2 "
2 "
2 !
2 iS-DOS.
2 TRDOS.
2 TR-DOS,
2 TR-DOS'e
2 TR-DOS
2 CHARS.
2 AY-3-8910/12
2 6,
2 1.
2 *********************************
2 ( HL )
2 "WHAM+AY"
2 "WHAM",
2 FIRELORD
2 AVALON
2 "WHAM+AY".
2 "WHAM+AY"
2 ~~~~~~~~~~~~~~~~~~~~~~~~~~
2 *********************************
2 ~~~~~~~~~~~~~~~~~~~~~~~
2 (C)
2 EDB0 LDIR
2 ~~~~~~~~~~~~~~
2 ~~~~~~~~~~~~
2
2
2
2
2
2
2
1 pboot B
1 mport ZX ASM
1 `wham2.txC
1 `2&`:^c2'`
1 _KMLKMMLKMLKMMLKMLKMMLKMLKMMLKMLK
1 _JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ
1 _IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
1 _9.
1 _8.
1 _5):
1 _4. 99999999999999999999999999999999
1 _3:
1 _2. 403 LET ACH3=PEEK FN P(49719)
1 _2.
1 _2).
1 _1.
1 _1.
1 _1.
1 SYSTEM ENVIRONMENT CHANGE MENU
1 Qwham1.txC
1 Pwham0.txC
1 Fsod1.tx C
1 E5 D5 CDF4A3 0E0B E1 D1
1 E2AUND TRA
1 DDE5 1823
1 CHANNEL? (1 TO 4) OR 0 TO EXIT
1 CDF4A3 0E0A CD133D 79
1 CD133D C9 21DD5C 0608
1 C ADVENTURE GAMES
1 C ISKRASOFT
1 C
1 Brpgam.txC
1 ?"
1 ?"
1 ?
1 ?
1 ?
1 ?
1 ?
1 ?
1 >=32768, 1650:
1 >=32768, 1640: <
1 >=26000.
1 >=26000-256*3 (
1 >=26000, 1680: <
1 >.
1 >
1 ; EFFECT CHANNEL ALSO?
1 ; 65121,183-
1 ; 36539,0 -
1 ;
1 :INK+PAPER*8+BRIGHT*64+
1 ::99887765
1 : [INV. VIDEO] -
1 : ZEUS 2
1 : VOLUME LEVEL REQUI-
1 : VOCABULARY
1 : RUBIC 2
1 : PUZZLE
1 : PUZZLE
1 : PRESIDENT'S GUARD PREF CLUB (IBM).
1 : PAPER
1 : MINESWEEPER
1 : KALEIDOSCOPE
1 : HYPERCODE
1 : HOW MANY
1 : HACKER.1
1 : FONTER 1.0
1 : EVE, DID
1 : ENVELOPE NUMBER (1 TO 8,
1 : DIZZY NEW/NEW DIZZY+
1 : D612H 16 0C 1C 27 28
1 : CAT, GET, PUT.
1 : BEND TONE
1 : Adventure
1 : 4
1 : 19
1 : 16*8=128
1 : 01.1993-03.1994
1 : 0
1 : #5DC0 (24000)
1 : #5B00).
1 : #5B00 (23296)
1 : "_"
1 : WHICH CHANNEL
1 : SIN-
1 : PRESS
1 : NEW VOLUME LEVEL ? R.
1 : HOW MANY NOTES -
1 : FOR CHAN -
1 : ENTER THE FRE-
1 : AVI.
1 : "CPL IN RANGE".
1 : Envelope, Volume,
1 : MUNICION -
1 : 100 SAVE "WHAM+AY" LINE 10: STO
1 : ZOIDS - THE BATTLE BEGINS
1 : 98989898989898989898989898989898
1 : *********************************
1 : 4)
1 : 2.
1 : 48834,0 -
1 : 2.SET CHANNEL LOOP PARAMETERS
1 : 94-
1 : 3)
1 : 16 0F 1D 20
1 :
1 :
1 :
1 :
1 :
1 :
1 9".
1 544322100/..-,,+
1 5. COMPILE & SAVE
1 4prese.txC
1 4. LISTEN TO TUNE
1 3E02 0E07 CD133D C9
1 3AEA5C 47 ED5BEB5C AF
1 3. CHANGE SAVE&LOAD PERIPHERAL
1 3"WHAM" The Music Box
1 2isdos.txC
1 2ZX vs PC
1 2NARCOPOL (DINAMIC 1990)
1 2Memory Editor
1 2MAD & SHISOFT
1 23 10FB 18F6
1 2. SET CHANNEL LOOP PARAMETERS
1 2"WHAM" The Music Box.
1 2"SPECTROFON" MAD & SHISOFT
1 2"SPECTROFON"
1 2"NARCOPOL"
1 2"Memory Editor".
1 1ADVENTURE GAMES
1 13 23 10F6 3643 C9 3620
1 11CC20 1A FE0D 2808 77
1 1. SET PRESET NOISE VALUES
1 1
1 0~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 0ounters) -
1 0ou may wish touse it to set up t E 50768,191: POKE 51105,18: GO T
1 0nsponierung).
1 0nsponierung
1 0nsponierung
1 0etitions).
1 0emory) -
1 0emory
1 0________________________________
1 0R=USR 15619: REM : SAVE F$CODE S F V>8 OR V<O THEN GO TO 3040
1 0NT #0;"****** PLEASE WAIT! re placed in the current channel
1 0KMLKMMLKMLKMMLKMLKMMLKMLKMMLKMLK
1 0HL=60000; DE=49711; BC=1000.
1 0GREAT ESCAPE,
1 0EXT.MODE.
1 0E08 CD133D 2A3600
1 0E05 CD133D 2AE85C E5
1 09090 GO TO 1000
1 09000 REM SETUP PARAMETERS
1 0700: REM set counters O 1020
1 06EF5 DD36000F LD (IX+0),#0F 6F70 85 ADD A,L
1 06EEE DD7E00 LD A,(IX+0) 6F6B D7 RST #10
1 06EB0: 28 22 FE 4B 28 2A FE 58:59 6F90: 80 6D 16 05 05 FF 00 00:0B
1 06E98: 21 96 6F 21 00 00 22 96:05 6F78: 3A 93 6F 32 99 6F 11 98:06
1 06DF7 CB2F SRA A 6E6B C3636D JP #6D63
1 06DF1 CB2F SRA A 6E63 C605 ADD A,#05
1 06634 CB0F RRC A ;
1 065DF DD7E00 LD A,(IX+0) ;
1 04110 PRINT AT N+5,O; OVER I; INV THEN GO TO 4600
1 04090 IF V=O THEN RUN 550
1 0360 LD DE,#BD0B-ABS ;
1 02070 PRINT #O;"VERIFY ? (Y/N)": 3050 LET ENBAS=49728+(V-I)*16
1 010
1 009
1 008
1 008
1 007
1 007
1 006
1 005
1 004
1 003
1 002
1 001
1 00+1000*BW+FW TO 59000+1000*BW+LW to ""O"")."
1 0-return to edit-mode or:
1 0-return to edit-mode or:
1 0) OR 0 TO EXIT" INT #O;" COMPILING TUNE"
1 0 581 IF INKEY$="T" THEN GO TO 9 A
1 0 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 0 C64F 21DF48 LD HL,#48DF
1 0 3. KEYBOARD LAYOUT -
1 0 ~~~~~~~~~~~~~~~~~~~~~~~
1 0 ~~~~~~~~~~~~~~~~~~~
1 0 6 LOAD & RECOMPILE
1 0 ~~~~~~~~~~~~~~~~~~~~
1 0 ~~~~~~~~~~~~~~~
1 0 ~~~~~~~~~~~~
1 0 67
1 0 ;
1 0 95
1 0 90
1 0 94
1 0 2
1 0 59
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 0
1 .nvelopes)
1 .epeat)
1 .96) 6
1 .119) 70
1 .1.
1 ..."
1 ..."
1 ...
1 ...
1 ...
1 .).
1 .": NEXT A USR 50008: GO TO 1020
1 .": NEXT A used for an introduction to a
1 .": NEXT A
1 .": GO TO 3110
1 ." 3360 PRINT ''"Loops are usually
1 ."
1 ."
1 ."
1 . iS-DOS),
1 . WIDTH -
1 . 59.
1 . 20.
1 . 2.
1 . 104,
1 . (095) 148-50-04
1 . iS-DOS
1 . VOCABULARY -
1 . POSLET -
1 . PC-REVIEW
1 . O.K.,
1 . OUT 15,0
1 . 995 PRINT AT O,O;: LET X=65280-
1 . 256
1 . (SKIMMER)
1 . 6D9D 7A LD A,D
1 . 2.
1 . -
1 . 8.
1 . 2. LOAD -
1 . *********************************
1 . "
1 . RPG.
1 . EXPRESS
1 . (PLATINA)
1 . ZX-
1 . Stone Road 71
1 . Herne Hill 4
1 . 60000
1 . (
1 . VATE
1 . iS-DOS
1 . ENVELOPES.
1 . COSMIC PIRATE
1 . 35054,0 -
1 . * * *
1 . ~~~~~~~~~~~~~
1 . SE -
1 . 5)
1 . SHEET P.S.
1 . (BREN).
1 . IBM-
1 . (MOLESKIN)
1 . ~~~~~~~~~~~~
1 . DE,
1 . "
1 . -
1 . 1. SAVE -
1 . ))
1 . 6.
1 . ~~~~~~~~~~~~~~~
1 . ABORT -
1 . DRYSALT
1 . 48949,0 -
1 . (
1 . 16 07 1C 2B 2C
1 . "
1 . XAUNTHIUS
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 .
1 -93 N 7/8
1 -800", "
1 -64", "ZX-Spectrum-48"
1 - iS-DOS
1 - bourne House - 86).
1 - ZX-128
1 - WEEPER
1 - TR-DOS (
1 - TOR/MISC.COPY ROM
1 - TIC STRUCTURE -
1 - STUDIO
1 - SKAR,
1 - RST 16
1 - ROTOKILLER 57190,
1 - Message from Andromed.
1 - MIDNIGHT RESISTANCE 34084,0
1 - MIDI,
1 - Loader(
1 - LOAD "wham $"CODE 16384
1 - KER.COM,
1 - Incredible Hulk.
1 - INTENSITY 49649,0
1 - HORN.
1 - GUTZ 47389,0
1 - ELITE) -
1 - DD2 -
1 - COLOUR
1 - CHICAGO 3 63794,0
1 - Blank, Slide, Loop, Repeat -
1 - Ant-Man
1 - ARTSTUDIO, J.HUTCBY /O.C.P. 1985/
1 - A65C 2A769
1 - 9A9C9B9A9C9C9B9A9C9B9A9C9C9B9A9C
1 - 7/8-93
1 - 6DB0 C9 RET
1 - 6DAE B1 OR C
1 - 6DA7 CB27 SLA A
1 - 6D9E CDB16D CALL #6DB1
1 - 6D98 41 LD B,C
1 - 6D91 C9 RET
1 - 60000
1 - 4-6 -
1 - 34484,0:36514,0:37334,0 -
1 - 26972,0:26973,0:26974,0 -
1 - 255.
1 - 205, 85, 22, 201.
1 - 205, 25, 232, 201.
1 - 11.10.93
1 - 1010.
1 - 0=NONE) -
1 - ... 51011.
1 - (Hulk).
1 - ("Hewson"). "
1 - #0036,
1 - "WHAM+AY".
1 - "WHAM+AY"
1 - "WHAM" -
1 - 411 LET ACH1=PEEK (I+FN P(49711
1 - ~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 - C63D 00 NOP
1 - C639 30F6 JR NC,#C631
1 - C636 110800 LD DE,0008
1 - C634 2808 JR Z,#C63E
1 - C631 B7 OR A
1 - C62D 1B DEC DE
1 - C626 2A2FC2 LD HL,(#C22F)
1 - C58C 18B5 JR #C543
1 - C58A 20FB JR NZ,#C587
1 - C584 01B002 LD BC,#02B0
1 - 5CD9 09 ADD HL,BC
1 - 5CD6 011000 LD BC,#0010
1 - 5CD5 E1 POP HL
1 - 5CD0 CD7C00 CALL #007C
1 - 40 RANDOMIZE USR 15619: REM :
1 - 25 IF (PEEK 23635+256*PEEK 236
1 - 2-3
1 - ~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 - ~~~~~~~~~~~~~~~~~~~~~~~~~
1 - iS-DOS
1 - VOCABULARY -
1 - RUN 8 -
1 - D6DB: FF C0 C0 80 80 00 00 00
1 - D6B3: FF 87 8C 88 90 90 9E 9F
1 - C7A0 CD12D6 CALL #D612
1 - C79C 00 NOP
1 - C79B 00 NOP
1 - 4.
1 - 3. EXCHANGE -
1 - 1. LOADING AND SAVING.
1 - 1.
1 - (39
1 - ~~~~~~~~~~~~~~~~~~~~~~~~~~
1 - -
1 - ~~~~~~~~~~~~~~~~~~~~~~~
1 - ~~~~~~~~~~~~~~~~~~~
1 - ZORR
1 - PHANTOMAS
1 - FLUNKY
1 - ELVEN WARRIOR
1 - BUCKROGERS
1 - BATTLE OF THE PLANETS
1 - ~~~~~~~~~~~~~~~
1 - "GOLDEN EAGLE",
1 - ~~~~~~~~~~~~~~~~~
1 - ~~~~~~~~~~~~~
1 - SKARS A PEARL
1 - 8.1
1 - 4.
1 - HELP PAGE.
1 - * * *
1 - D58AH: 160300160000
1 - * * *
1 - * * *
1 - 16 0E 1C 2D 2C
1 - 16 0D 1C 29 2A
1 - 16 0D 1C 21 21
1 - 16 0B 1C 33 34
1 - 16 0B 1C 25 26
1 - 16 08 1C 2E 20
1 - 16 05 1C 27 28
1 -
1 -
1 -
1 -
1 , PRESS BUT-
1 , PI*100
1 , GREMLINS.
1 , 8*32=256),
1 , 1994.
1 , 1994.
1 , 1994.
1 , 1994.
1 , ration
1 , SPECIAL S.U. CREW
1 , PI*2 -
1 , 6DAB CDB16D CALL #6DB1
1 , 6D95 CD996D CALL #6D99
1 , 51765,0 -
1 , (SCRIP)
1 , "m.box+ay".
1 , C632 ED52 SBC HL,DE
1 , D6CB: FF 70 70 70 70 66 66 60
1 , C79D CD1BC6 CALL #C61B
1 , PUZZNIC (
1 , D744H: 16 00 1D 20
1 , 16 04 1C 25 26
1 ,
1 ,
1 ,
1 *))('&%%$#""!
1 );
1 ):
1 ). gican, Wizard, Warlock, Sorcerer
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ).
1 ), NOVEX (
1 ), MICROPROSE (
1 ), 1620: <
1 ), 1660:<
1 ), 1610: <
1 ) EXTRA SOFT 1993 6DC1 FE0D CP #0D
1 ) 16 09 1C 2F 30
1 ) 16 08 1C 2E 20
1 ) 16 01 1D 20
1 ) - " ...
1 ) 3.
1 )
1 )
1 )
1 (intro.txC
1 (D15, D16).
1 $hex-g.txC
1 "BestView DON'T WORK IN 48K MODE":
1 ": NEXT B: FOR B=I+PEEK (A+EN 540 POKE 23658,8
1 ": GO TO 3110
1 "....
1 ". (Y/N) -
1 ". 6DB3 FE0A CP #0A
1 ". PIXY 2 28244,0
1 ". "...
1 ". -
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ".
1 ")
1 " N 3-4, 1993.
1 " 121019,
1 " (FAMICOM).
1 " - 16 0E 1C 20 20
1 " (Adven-
1 "
1 "
1 "
1 "
1 !?
1 !)
1 !
1 !
1 !
1 !
1 !
1 ~~~~~~
1 ve): ";S 4840 IF PEEK 43519<>1 THEN GO T
1 tor". 6DBC 0604 LD B,#04
1 tion at will." HELP SERVICE"
1 tha Fox,
1 th the currentvalues of the enve 7000 PRINT "HELP - NOISE"
1 tel 214-31-04 (
1 tel 157-06-12, 176-79-77,
1 ssed in termsof ADSR (Attack Dec 7040 PRINT '"For help on placeme
1 sembler (
1 r own systems." ect."
1 oard. Keys ""L"" & "","" can be 8060 PRINT '"3 KEYBOARD LAYOUT"
1 ms should have no trouble in mod i fi or computer dealer may b
1 made with thekeys ""1"" to ""4"" TS"
1 lopes and the status of white no 7010 PRINT '''"White noise effec
1 llows you to vary the ADSR por 8020 PRINT "MARK TIME MUSIC BOX
1 ise presets, Therefore the save ts are placed on any channel in
1 ifying the tapesave to suit thei e able to advise youon this subj
1 ice used can be selected with t 7020 PRINT '"When a channel is p
1 iS-DOS.
1 iS-DOS.
1 iS-DOS.
1 iS-DOS.
1 iS-DOS,
1 iS-DOS'e,
1 iS-DOS'e
1 iS-DOS'a.
1 iS-DOS'a
1 iS-DOS'a
1 iS-DOS".
1 iS-DOS (
1 iS-DOS (
1 iS-DOS
1 iS-DOS
1 iS-DOS
1 he system menuoption." laying noise the envelope / volu
1 he envelopes!" O 970
1 he current channel." ONDING NUMBEREDKEY FOR NEXT PAGE
1 gamefile.dat.
1 from_trd.com
1 files not
1 ffects channel 578 IF INKEY$="A" THEN GO TO 4
1 fax 157-18-81 (
1 e variations over a note period, s available for use with white
1 driven)." 8130 IF V>5 THEN GO TO 8100
1 decimal) mostenvelopes are discu music types."
1 d and loaded toTR-DOS disc or TA be connected to most hi fi syst
1 compiling is O.K.": BEEP .1,20:
1 ay Sustain & Release)" nt of noise in a tune see 'KEYB
1 ace the desiredeffect (all menu 8120 IF V=O THEN RUN
1 Zeus As-
1 ZX-Spectrum. HACKER.1 8.
1 ZX-Spectrum
1 ZX-Spectrum
1 ZX Microdrive
1 ZEUS 2.
1 ZEUS /Crystal Computing
1 ZE USR 51153 2040 IF D$="TAPE" THEN SAVE F$C
1 Z, X, ... M,
1 YABBA DABBA DOO
1 Y.
1 Y NOTES IN TAKTS-PERIOD:"'T: POK 4040 FOR A=I TO 9
1 XVII - XIX
1 WIDTHLET -
1 WIDTHLET
1 WEST BANK,
1 WEST BANK.
1 WEAPON
1 W O,120: DRAW -128,O: DRAW O,-12
1 Version 4.1b. >X -
1 VELOPE NUMBER" 1010 BORDER 7: LET X=65280-USR 5
1 V.A.PRINT.
1 User Games).
1 UT" 8040 PRINT '"1 LOADING AND SAVIN
1 UN E 53571,A: LET Z=USR 53570: LET
1 U.S.Gold
1 U -for UP; D -for DOWN" 4800 INPUT ;: PRINT #O;AT 2,O;AT
1 Tir-Na-Nog.
1 TY"..."
1 TURBO-90. SIDEWINDER 2 32821,167
1 TRON II")?
1 TRDOS.
1 TR.VIDEO
1 TR. VIDEO
1 TR-DOS.
1 TR-DOS,
1 TR-DOS).
1 TR-DOS),
1 TR-DOS'e,
1 TR-DOS'OM
1 TR-DOS
1 TR-DOS
1 TR-DOS
1 TR,LEN 3042 IF V=O THEN RUN
1 TR DOS" THEN GO TO 2300 3305 PAPER 5: INK O: BORDER 5: C
1 THEN GO TO 620 1020 POKE 23658,8
1 THE TUNE": RANDOMIZE USR 52500: 62+(A*2));TAB 20;EN;TAB 28;CHR$
1 TELESTONE.
1 TAKE, FIGHT, QUIT
1 T W: NEXT Q 6060 GO TO 7999
1 T 20,O;" Verifying..." ESS ENTER",AT 15,19;"WHEN FINISH
1 Strong Room
1 Strange.
1 Stone Road 71,
1 Spectrum,
1 Spectrum
1 Sinclair.
1 Sincla- TR-DOS
1 Saman-
1 Saga of Erik the Viking"
1 SYMB.SHIFT
1 SUPPLIES. SHORT RANGE ACTION. -
1 SUPERCODE.
1 STARTLET
1 SINTEZ-M
1 SINTEZ-2.
1 SINCLAIR-2.
1 SINCLAIR-1,
1 SINCLAIR, CURSOR, KEYBOARD.
1 SHIELD MIDIR.
1 SHERLOCK
1 SET TEMPO.
1 SET TEMPO,
1 SET TEMPO
1 SE 1;" O.K. ": BEEP .1,26: BEEP
1 SCROL6.
1 SCROL1.
1 SCREEN.CODE
1 SC.
1 SAVE "wham+ay" CODE 48000, 17536 P
1 SAVE "m.box+ay"
1 SAMURAI WARRIOR 56064,
1 S (?) -
1 RUN "m.box+ay"
1 RST 16.
1 RPG.
1 RINT #O;" PRESS ANY KEY TO STOP );A;TAB 4;A$(A);TAB 10;PEEK (499
1 RIGHT O: CLS TART + ";FN P(49721)-62001
1 RIFY "m.box+ay" (
1 RET ; MAKE_ROOM
1 RESET
1 REMOTE CONTROL, ~~~~~~~~~~
1 REMOTE CONTROL,
1 RECLAM_2:
1 RECLAM_2
1 RECLAM_2
1 RANDOMIZE USR),
1 RANDOMIZE USR 26000.
1 R-TYPE 34374,0 53359,0 -
1 Questprobe Adven-
1 QUENCY (0 TO 31) -
1 Peltzer,
1 PROCESSING LABORATORY),
1 PRINT AT O,O; BRIGHT I;: RANDOMI 2030 LET STR=60000: LET ERR=O
1 POP.
1 PLATE.
1 PHT 3.6
1 PEEK 23636+5)
1 PE. Owners of other disc syste ems with a lead."''"Your local h
1 PC-REVIEW,
1 PC-REVIEW
1 PAUSE 50: GO TO 3500
1 PARAMETERS" L THE CODE WITH USR 64000. THE
1 PAPER 7;PEEK 50743 4010 PAPER O: INK 5: BRIGHT I: B
1 OD (OPEN DOOR) -
1 O TO 4140 4700 INPUT "COUNTERS: ";N
1 O 970 ALTER (0=EXIT)"
1 Norton),
1 Nightmare.
1 NOVADRIVE.
1 NOVADRIVE
1 NKEY$>"3" THEN GO TO 4340 55225: INPUT ;: PRINT #O;" O
1 NEW DIZZY+
1 N7-8 ZX-
1 N55). ART IN ORDER
1 N2.
1 N1.
1 N
1 Mirrored Room.
1 Micronet.
1 Mercenary
1 MONS4. 8
1 MONS'a,
1 MONITOR,
1 MODE.
1 MISC./CHANGE
1 MIDI/RS232,
1 MERCENARY:
1 MANDER, MOA SERVICE
1 MAKE_ROOM
1 MAKE_RO- RET ;
1 M (MAP?) -
1 Long Lane 10
1 Level 9.
1 Level 9, 1984.
1 LOAD "wham+ay"CODE
1 LOAD "mons4b"CODE 41000 MONS4,
1 LI (LIST).
1 LECOPY.com,
1 LD HL,(#9C76)
1 LD HL,#5CCB ;
1 LD BC,#70 ;
1 LASH I;" ERROR ";ERR;" ": BEEP I 3110 PRINT AT 21,O,,AT 21,E+2; P
1 L ALSO ? (Y/N)";Q$: INPUT ;: PRI 6040 PRINT '"The preset noises a
1 L ? (0 TO F)" 1900 REM LOAD A TUNE
1 L (LOGOFF) -
1 KEYPRESS -
1 KER.COM.
1 KEMPSTON,
1 KEMPSTON
1 KAYLETH,
1 IskraSOFT.
1 IZE USR 15619: REM : VERIFY F$CO 3060 POKE USR "S",255: FOR A=USR
1 ISKRA-SOFT?"
1 IRED ? (0 TO F)": GO SUB 2600 716,PEEK 23671
1 INV.VIDEO.
1 INT AT 12,0;"Loading routine and
1 INT '" SYSTEM ENVIRONMENT CHANGE CTS CHANNEL.",,,: PRINT #0;"Comp
1 INPUT ;: GO TO 3550 (48+V+(7 AND V>9))
1 INDY JONES (and the temple of 49144,0 -
1 IF V<0 OR V>15 THEN GO TO 2610 3150 IF CODE INKEY$=10 THEN LET
1 I=1 1050 - HELP PAGE -
1 I: RANDOMIZE USR 50003: PRINT AT START + ";FN P(49725)-63001
1 I: RANDOMIZE USR 50003: PRINT AT : FOR A=O TO 5: NEXT A
1 Hail Belinus.
1 Hail Midir.
1 HYPERCODE,
1 HULK?
1 HOW MANY REPETITIONS:
1 HERAL -
1 HALT).
1 H 1;"ERROR!!!": BEEP 1,0
1 GREMLINS?
1 GREMLINS.
1 GREAT ESCAPE,
1 GODS SEE ALL
1 GO SUB 40,
1 GEOFF CAPES STRONG MAN
1 GENS4.
1 GENS4
1 GENS.
1 GENS.
1 GENESIS.
1 GAS PIPE
1 GAS EXPLOSION,
1 FR;" " ;" Channel is wery ";("high." AN
1 FOR CHAN:
1 FDISP).
1 F V>3 THEN GO TO 840 2000 REM SAVE A TUNE
1 F V>3 THEN GO TO 650 1045 IF X=4 THEN GO SUB 2000: R
1 Emitter.
1 EXT.MODE,
1 EXT.MODE
1 EXT.MODE
1 EXPLOSIVES -
1 EW-BW)*1000: IF PW/1000<>INT (PW manual for a full description of
1 EVE, DID
1 ETHNIPOD 61196,0 - 1
1 ET EW=BW: LET Q$="N": GO TO 4910 "
1 ET A=61000: GO SUB 4500: LET A=6 40: RANDOMIZE USR 55200: GO SUB
1 ERSE I,, 4540 IF V=I THEN POKE N,T
1 ERASE "m.box+ay"
1 EQUINOX 39856,0 49207,0 -
1 EQUINOX
1 ENTER. BREAK.
1 ENTER),
1 ENTER
1 EN POKE 62999,53 4850 IF INKEY$="L" THEN RANDOMI
1 EN LET P=8 ORRESPONDS ! ARE YOU SURE YOU
1 EEK (A+ENBAS): PRINT AT 20-B,A+2 "
1 EDIT MODE.
1 EDIT MODE -
1 EDIT MODE
1 EDIT MODE -
1 EDIT MODE
1 E VALUES" 3950 PRINT '"THE ROUTINE HAS COM
1 E 60000,PEEK 60000+128 TO 990
1 E 50768,223: POKE 51105,26: GO T 4070 PRINT #O;" WHICH PRESET TO
1 E 50743,T: PRINT AT 1,O: GO TO 3 4041 LET E=PEEK (49963+(A*2))
1 Dun Darach.
1 DRAW.
1 DOOR", "OPEN LOCK", "USE KEY",
1 DIZZY 1-6
1 DIZZY NEW
1 DICTIONARY,
1 DG (DISCONNECT GUNS) -
1 DESIRED ENVELOPE NUMBER -
1 DEFB, DEFM, DEFS, DEFW -
1 DE STR,LEN "S"+I TO USR "S"+7: POKE A,I: N
1 DE - 59999 -
1 DC (DISCONNECT CAMERAS) -
1 DB, DM, DS, DW.
1 D7D0 C9 RET
1 D7CE EDB0 LDIR
1 D7CB 010011 LD BC,#1100
1 D7C8 1160EA LD DE,#EA60
1 D7C5 2100AA LD HL,#AA00
1 D7C4 C9 RET
1 D7C2 EDB0 LDIR
1 D7BF 010011 LD BC,#1100
1 D7BC 1100AA LD DE,#AA00
1 D7B9 2160EA LD HL,#EA60
1 D7B8 C9 RET
1 D7B6 10F0 DJNZ #D7A8 N 1-2 1993
1 D7B5 C1 POP BC
1 D7B3 10F6 DJNZ #D7AB
1 D7B2 13 INC DE "SUPERCODE",
1 D7B1 23 INC HL
1 D7B0 12 LD (DE),A
1 D7AF F1 POP AF
1 D7AE 77 LD (HL),A
1 D7AD 1A LD A,(DE)
1 D7AC F5 PUSH AF
1 D7AB 7E LD A,(HL)
1 D7A9 0600 LD B,#00 60000
1 D7A8 C5 PUSH BC
1 D7A6 0611 LD B,#11
1 D7A3 2160EA LD HL,#EA60
1 D7A0 1100AA LD DE,#AA00
1 D6FBH. 16 0A 1C 23 24
1 D63A C9 RET ;
1 D637 22365C LD (#5C36),HL ;
1 D636 E1 POP HL ;
1 D633 CD3C20 CALL #203C ;
1 D630 012F00 LD BC,#002F ;
1 D62D 1144D7 LD DE,#D744 ;
1 D62A CD3C20 CALL #203C ;
1 D627 22365C LD (#5C36),HL ;
1 D624 213BD5 LD HL,#D53B ;
1 D623 E5 PUSH HL ;CHARS
1 D620 2A365C LD HL,(#5C36) ;
1 D61D 012700 LD BC,#0027 ;
1 D61A 111DD7 LD DE,#D71D ;
1 D618 1806 JR #D620 ;
1 D615 012200 LD BC,#0022 ;
1 D612 11FBD6 LD DE,#D6FB ;
1 D4.
1 D PERIPHERAL" S."
1 Cross-Street (
1 Club")? SHIFT, SLIDE, MOVE, OPEN, PUSH,
1 CYBERNOID 24991,n -
1 CPL.
1 CODE.
1 CEASEFIRE,
1 CEASEFIRE
1 CDPACKER.COM, NMIPACK.COM, SPAC-
1 CAT 3090 PLOT 158,78: DRAW 35,O: DRA
1 CAPS LOCK,
1 CALL #D61
1 CALL #1655 ;MAKE_ROOM
1 C7A3 C378C3 JP #C378 ;
1 C7A0 CD1BC6 CALL #C61B ;
1 C79D CD3EC6 CALL #C63E ;
1 C79B 0E01 LD C,#01 ;
1 C798 CD18C9 CALL #C918 ;
1 C795 CDA6C7 CALL #C7A6 ;
1 C792 CDA6C7 CALL #C7A6 ;
1 C78F CDA6C7 CALL #C7A6 ;-
1 C78C CDA6C7 CALL #C7A6 ;
1 C789 01E803 LD BC,#03E8 ;(
1 C786 112FC2 LD DE,#C22F ;
1 C783 2160EA LD HL,#EA60 ;
1 C668 C9 RET ;
1 C666 10F9 DJNZ #C661 ;
1 C664 ED52 SBC HL,DE ;
1 C663 77 LD (HL),A ;
1 C662 2B DEC HL ;
1 C661 77 LD (HL),A ;
1 C65F 0605 LD B,#05 ;
1 C65C 21FF40 LD HL,#40FF ;
1 C65A 10F9 DJNZ #C655 ;
1 C658 ED52 SBC HL,DE ;
1 C657 77 LD (HL),A ;
1 C656 2B DEC HL ;
1 C655 77 LD (HL),A ;
1 C653 0605 LD B,#05 ;
1 C652 3D DEC A ;
1 C64F 21BF48 LD HL,#48BF ;
1 C64D 10F8 DJNZ #C647 ;
1 C64C 19 ADD HL,DE ;
1 C64B AF XOR A ;
1 C64A 77 LD (HL),A ;
1 C649 79 LD A,C ;
1 C648 23 INC HL ;
1 C647 77 LD (HL),A ;
1 C646 AF XOR A ;
1 C644 0680 LD B,#80 ;
1 C641 111F00 LD DE,#001F ;
1 C63E 211E40 LD HL,#401E ;
1 C63C 0E01 LD C,#01 ;
1 C63A 3802 JR C,#C63E ;
1 C638 CB1D RR L ;
1 C636 3806 JR C,#C63E ;
1 C634 CB1D RR L ;
1 C632 380A JR C,#C63E ;
1 C630 CB1D RR L ;
1 C62E 0E00 LD C,#00 ;
1 C62C ED52 SBC HL,DE ;
1 C629 115FEA LD DE,#EA5F ;
1 C626 2A2FC2 LD HL,(#C22F) ;
1 C624 EDB0 LDIR ;
1 C621 010010 LD BC,#1000 ;
1 C61E 11FE3F LD DE,#3FFE ;
1 C61B 210040 LD HL,#4000 ;
1 C58E C9 RET ;
1 C58C 20FB JR NZ,#C589 ;
1 C58B 0D DEC C ;
1 C589 10FE DJNZ #C589 ;
1 C586 015802 LD BC,#0258 ;
1 C584 18BD JR #C543 ;
1 C581 CD86C5 CALL #C586 ;
1 C580 35 DEC (HL) ;
1 C57E 28C3 JR Z,#C543 ;
1 C57C FEDD CP #DD ;
1 C57B 7E LD A,(HL) ;
1 C579 18C8 JR #C543 ;
1 C576 CD86C5 CALL #C586 ;
1 C575 34 INC (HL) ;
1 C573 28CE JR Z,#C543 ;
1 C571 FEFB CP #FB ;
1 C570 7E LD A,(HL) ;
1 C56D C378C3 JP #C378 ;
1 C56A CDADBD CALL #BDAD ;
1 C568 2806 JR Z,#C570 ;
1 C566 FE13 CP #13 ;
1 C564 2815 JR Z,#C57B ;
1 C562 FE04 CP #04 ;
1 C561 E1 POP HL ;
1 C55E CDCAC3 CALL #C3CA ;
1 C55D E5 PUSH HL ;
1 C55A CD26BD CALL #BD26 ;
1 C558 3E03 LD A,#03 ;
1 C555 CDD9C8 CALL #C8D9 ;
1 C553 10FC DJNZ #C551 ;
1 C552 D7 RST #10 ;"
1 C551 79 LD A,C ;
1 C550 D7 RST #10 ;0;
1 C54F AF XOR A ;
1 C54E D7 RST #10 ;18;
1 C54C 3E12 LD A,#12 ;
1 C54B D7 RST #10 ;AT;
1 C549 3E16 LD A,#16 ;
1 C547 0E20 LD C,#20 ;
1 C546 47 LD B,A ;
1 C544 D6DC SUB #DC ;
1 C543 7E LD A,(HL) ;
1 C540 213FC2 LD HL,#C23F ;
1 C527 ... ... ...
1 C524H)
1 C41A C300C5 JP #C500 ;
1 C417 CD1FBE CALL #BE1F ;
1 C414 CD18C9 CALL #C918 ;
1 C411 C278C3 JP NZ,#C378 ;
1 C40F FEC4 CP #C4 ;
1 C40E C8 RET Z ;
1 C40C FECD CP #CD ;
1 C409 CA54C4 JP Z,#C454 ;
1 C407 FED1 CP #D1 ;
1 C404 CAEBC4 JP Z,#C4EB ;
1 C402 FEC3 CP #C3 ;
1 C3FF CAD7C4 JP Z,#C4D7 ;
1 C3FD FEDC CP #DC ;
1 C3FA CA31C4 JP Z,#C431 ;
1 C3F8 FEC5 CP #C5 ;
1 C3F5 CA83C7 JP Z,#C783 ;
1 C3F3 FED2 CP #D2 ;
1 C3F0 CAB8C6 JP Z,#C6B8 ;
1 C3EE FEC7 CP #C7 ;
1 C3EB CAB8C6 JP Z,#C6B8 ;
1 C3E9 FEE6 CP #E6 ;
1 C3E6 CA1DC4 JP Z,#C41D ;
1 C3E4 FEBF CP #BF ;
1 C3E1 CAC1C3 JP Z,#C3C1 ;
1 C3DF FEBE CP #BE ;
1 C3DC CAC8C4 JP Z,#C4C8 ;
1 C3DA FEC8 CP #C8 ;
1 C3D7 C37BC3 JP #C37B ;
1 C3D4 3248C1 LD (#C148),A ;
1 C3D2 D6FA SUB #FA ;
1 C390 3048 JR NC,#C3DA ;
1 C38E FEBE CP #BE ;
1 C38C 3044 JR NC,#C3D2 ;
1 C38A FEFA CP #FA ;
1 C388 28F1 JR Z,#C37B ;
1 C386 FEFF CP #FF ;
1 C385 79 LD A,C ;
1 C382 CDCAC3 CALL #C3CA ;
1 C37F CD94C0 CALL #C094 ;
1 C37E AF XOR A ;
1 C37B CD01C8 CALL #C801 ;
1 C378 CDD1C7 CALL #C7D1 ;
1 Bank 24
1 BREAAK/SPACE. N5/6).
1 BEEP .1,20: PAUSE O: IF INKEY$<> 3055 PRINT PAPER 7; INK 2;AT O,
1 BASIC'a
1 BAS) TO 15: PRINT AT 20-B,A+2;"H 550 IF INKEY$="E" THEN GO TO 6
1 BAGDAD 59857,0 49161,0 -
1 Adventure Building System.
1 Advanced Dungeons & Dragons
1 AY-3-8910/12 -
1 AUTODIAGNOSTIC SISTEM:
1 AT O,O;("Searching..." AND V=O); 4900 INPUT AT 0,0;"FOR CHAN.:";B
1 ARTURA 32138,0 -
1 ARTSTUDIO.
1 ART IN ORDER.
1 ANTARES 52960,0 -
1 ANNEL: 1-3; or 0 for ALL" 4830 IF INKEY$="S" THEN POKE 43
1 AGENT-X 2 57821,0 TEENAGE MUTANT HERO-TURTLES
1 AFTER THE WAR 2 27492,0 -
1 AFTER THE WAR 1 48949,0 -
1 ?
1 >999 THEN GO TO 4300 724,PEEK 23671
1 =O: POKE 49549,V+I: PRINT AT 1,O 4065 PRINT ''"LOWEST FREQUENCY I
1 <Enter>.
1 <A,R,T -
1 ;AT I,A*4-3;"
1 ; LINE F$ 3170 GO TO 3120
1 : PRINT PAPER 7;D$; PAPER 6;" E 64062,_"
1 : PAUSE 50: RETURN OR A=I TO LEN A$: PRINT AT 20-A,
1 : LET PW=W+(AW-FW)+Q*(I+LW-FW)+( 6050 PRINT '"Please consult the
1 : GO TO 3510 S 31 WHILE THEHIGHEST FREQUENCY
1 : ";B'("END (";B;"-999): ");E 4740 RANDOMIZE (FN P(49725)-1+N)
1 9999 BORDER 7: PAPER 7: INK 0
1 9998 IF ERR<>0 THEN PRINT FLAS
1 9996 IF ERR=0 THEN PRINT INVER
1 9994 LET ERR=USR 15619: REM : VE
1 9992 RANDOMIZE USR 15619: REM :
1 9990 RANDOMIZE USR 15619: REM :
1 980.
1 9727,P
1 9700 RANDOMIZE USR 52500: GO TO
1 960, 970
1 9549=I)+("TAPE" AND PEEK 49549=2 577 IF INKEY$="R" THEN POKE AD
1 9230 INPUT ;: PRINT #0;" Re 2000 -
1 9220 RANDOMIZE USR 55250: POKE 4
1 9210 LET P=PEEK 64062+18: IF P>2
1 9200. SPACE,
1 9200 BORDER 7: PAPER 7: CLS : PR
1 91: POKE 51105,26: LET P=P-128 440 IF INKEY$="N" THEN INPUT '
1 915 TART + ";FN P(49713)-60001
1 9100
1 90: REM return to edit A
1 9010 LET RET=2900: LET O=0: LET
1 9000
1 90 LD A,C ;
1 8140 CLS : GO TO 4500+500*V 1046 - LOAD -
1 80: REM set tempo 975 PRINT AT O,O;: LET X=65280-
1 800: REM select music-key 971 INPUT ;: FOR A=O TO 5: NEXT
1 800: REM memory LOAD & SAVE 980 REM back to set tempo
1 80 CALL TRDOS ;
1 70 LD C,#0A ;
1 7,
1 7 THEN GO TO 3550 OPE WAVEFORM SHAPES"
1 6F68: 53 6E F1 D7 2A 90 6F 7C:05 * * *
1 6F67 CD536E CALL #6E53 6E80: 6B 0D 3E 02 CD 01 16 11:9B
1 6F66 77 LD (HL),A 6E78: F1 C9 3E 08 32 6A 5C CD:AB
1 6F65 B2 OR D 6E70: 53 6E 11 9C 6F CD 63 6D:58
1 6F64 A1 AND C 6E68: 11 92 6F C3 63 6D F5 CD:3D
1 6F63 78 LD A,B 6E60: DD 86 01 C6 05 32 94 6F:32
1 6F61 0E0F LD C,#0F 6E58: 32 93 6F DD 7E 01 CB 2F:50
1 6F60: 22 0E 0F 78 A1 B2 77 CD:1D 7040: 46 29 FF 00 00 00 00 00:1E
1 6F5F CB22 SLA D 6E50: 20 D9 C9 DD 7E 00 C6 05:A6
1 6F5D CB22 SLA D 6E48: 7B CD F0 6D 3E 0D D7 0D:8A
1 6F5B CB22 SLA D 6E40: 86 5F 23 10 F3 3E 3A D7:08
1 6F59 CB22 SLA D 6E38: 3E 20 D7 7E CD F0 6D 7B:FE
1 6F58: 0A CB 22 CB 22 CB 22 CB:63 7038: 75 6D 62 65 72 28 30 2D:48
1 6F57 200A JR NZ,#6F63 6E30: 7C CD F0 6D 7D CD F0 6D:EB
1 6F56 D1 POP DE 6E28: 6F 0E 10 06 08 7C 85 5F:91
1 6F55 46 LD B,(HL) 6E20: 6D 3E 02 CD 01 16 2A 8A:D3
1 6F53 0EF0 LD C,#F0 6E18: CD 01 16 11 06 70 CD 63:21
1 6F51 E601 AND #01 6E10: 16 11 B8 6F CD 63 6D AF:18
1 6F50: 01 E6 01 0E F0 46 D1 20:DC 7030: 79 73 2C 68 65 78 20 6E:8B
1 6F4E DD7E01 LD A,(IX+1) 6E08: C9 CD 6B 0D 3E 02 CD 01:92
1 6F4D 09 ADD HL,BC 6E00: 30 FE 3A 38 02 C6 07 D7:B4
1 6F4B CB29 SRA C 6DF8: 2F CD FD 6D F1 E6 0F C6:77
1 6F48: DD 4E 01 CB 29 09 DD 7E:3B 7028: 75 72 73 6F 72 20 6B 65:C3
1 6F48 DD4E01 LD C,(IX+1) 6DF0: F5 CB 2F CB 2F CB 2F CB:0B
1 6F45 22906F LD (#6F90),HL 6DE8: 18 D4 05 04 20 D0 18 A2:F4
1 6F44 09 ADD HL,BC 6DE0: 2B 11 A2 6F CD 63 6D 04:3B
1 6F42 0600 LD B,#00 6DD8: D7 18 E3 78 FE 04 28 DE:97
1 6F41 4F LD C,A 6DD0: ED 05 04 28 E9 77 23 05:E3
1 6F40: 27 4F 06 00 09 22 90 6F:55 7020: 65 58 69 74 16 01 02 63:A6
1 6F3F CB27 SLA A 6DC8: 12 FE 30 38 F1 FE 47 30:13
1 6F3D CB27 SLA A 6DC0: 6D FE 0D 28 25 FE 0C 28:24
1 6F3B CB27 SLA A 6DB8: C9 21 8C 6F 06 04 CD 6B:4C
1 6F38: DD 7E 00 CB 27 CB 27 CB:B1 7018: 78 74 20 62 61 63 4B 20:25
1 6F38 DD7E00 LD A,(IX+0) 6DB0: C9 D6 30 FE 0A D8 D6 07:A9
1 6F35 2A8A6F LD HL,(#6F8A) 6DA8: 27 4F 7B CD B1 6D B1 4F:F1
1 6F34 F5 PUSH AF 6DA0: 6D CB 27 CB 27 CB 27 CB:1B
1 6F31 CDB16D CALL #6DB1 6D98: 41 56 23 5E 23 7A CD B1:38
1 6F30: F5 CD B1 6D F5 2A 8A 6F:97 7010: 48 61 6E 67 65 20 4E 65:36
1 6F30 F5 PUSH AF 6D90: E1 C9 21 8C 6F CD 99 6D:96
1 6F2F C9 RET 6D88: CD B5 03 F1 C1 D1 E1 DD:BB
1 6F2C CD6B0D CALL #0D6B 6D80: 86 6D 11 0A 00 21 60 02:7E
1 6F2A 18CF JR #6EFB 6D78: FC 3A 08 5C F5 87 87 32:B4
1 6F28: 01 00 18 CF CD 6B 0D C9:8D 7008: 02 6B 65 79 73 3A 20 63:F3
1 6F26 DD360100 LD (IX+1),#00 6D70: 21 3B 5C CB AE CB 6E 28:6F
1 6F23 C2A16E JP NZ,#6EA1 6D68: D7 18 F8 DD E5 E5 D5 C5:FD
1 6F21 FE10 CP #10 6D60: C3 7A 6E 1A 13 FE FF C8:6A
1 6F20: 01 FE 10 C2 A1 6E DD 36:82 7000: 55 4D 16 05 00 FF 16 00:42
1 6F1E DD7E01 LD A,(IX+1) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 6F1B DD3401 INC (IX+1)
1 6F19 18D0 JR #6EEB
1 6F18: 0F 18 D0 DD 34 01 DD 7E:EB 6FF8: 20 20 36 20 20 37 20 53:C7
1 6F15 DD36010F LD (IX+1),#0F 6F88 1891 JR #6F1B
1 6F13 208C JR NZ,#6EA1 6F85 CDF06D CALL #6DF0
1 6F11 FEFF CP #FF 6F84 79 LD A,C
1 6F10: 01 FE FF 20 8C DD 36 01:3D 6FF0: 20 33 20 20 34 20 20 35:9B
1 6F0E DD7E01 LD A,(IX+1) 6F81 CD636D CALL #6D63
1 6F0B DD3501 DEC (IX+1) 6F7E 11986F LD DE,#6F98
1 6F09 1896 JR #6EA1 6F7B 32996F LD (#6F99),A
1 6F08: 00 18 96 DD 35 01 DD 7E:93 6FE8: 30 20 20 31 20 20 32 20:8A
1 6F05 DD360000 LD (IX+0),#00 6F78 3A936F LD A,(#6F93)
1 6F03 209C JR NZ,#6EA1 6F77 4F LD C,A
1 6F01 FE10 CP #10 6F75 10FC DJNZ #6F73
1 6F00: 00 FE 10 20 9C DD 36 00:4C 6FE0: 16 03 00 41 44 52 2E 20:8D
1 6EFE DD7E00 LD A,(IX+0) 6F74 23 INC HL
1 6EFB DD3400 INC (IX+0) 6F73 86 ADD A,(HL)
1 6EF9 18A6 JR #6EA1 6F71 0608 LD B,#08
1 6EF8: 0F 18 A6 DD 34 00 DD 7E:9F 6FD8: 6F 66 74 20 31 39 39 33:86
1 6EF3 20AC JR NZ,#6EA1 6F6F 7C LD A,H
1 6EF1 FEFF CP #FF 6F6C 2A906F LD HL,(#6F90)
1 6EF0: 00 FE FF 20 AC DD 36 00:3A 6FD0: 20 65 58 54 72 61 20 53:B6
1 6EEB DD3500 DEC (IX+0) 6F6A F1 POP AF
1 6EE8: 42 18 F0 DD 35 00 DD 7E:0D 6FC8: 6F 72 20 3E 16 01 07 7F:13
1 6EE0: 2A 8A 6F 01 80 00 B7 ED:96 6FC0: 6F 72 79 20 45 64 69 74:2F
1 6ED8: 80 00 09 22 8A 6F 18 B4:B6 6FB8: 16 00 07 3C 20 4D 65 6D:BF
1 6ED0: 38 5E 18 CD 2A 8A 6F 01:DD 6FB0: 44 44 52 45 53 53 3A FF:1D
1 6EC8: 28 51 FE 30 38 D3 FE 47:2D 6FA8: 03 49 4E 50 55 54 20 41:0B
1 6EC0: 28 39 FE 08 28 45 FE 09:09 6FA0: 00 FF 08 20 08 FF 16 0A:5D
1 6EB8: 28 72 FE 0B 28 2D FE 0A:26 6F98: 16 05 1D FF 15 01 8F 15:F8
1 6EA8: 6E 6E FE 48 28 D1 FE 4E:7D 6F88: 18 91 00 00 30 30 30 30:60
1 6EA0: 6F CD 6E 6E CD 6B 6D CD:98 6F80: 6F CD 63 6D 79 CD F0 6D:9E
1 6E90: ED 43 8A 6F CD 09 6E DD:48 6F70: 85 06 08 86 23 10 FC 4F:76
1 6E5E CB2F SRA A 6EE9 18F0 JR #6EDB
1 6E5B DD7E01 LD A,(IX+1) 6EE7 ED42 SBC HL,BC
1 6E58 32936F LD (#6F93),A 6EE6 B7 OR A
1 6E56 C605 ADD A,#05 6EE3 018000 LD BC,#0080
1 6E53 DD7E00 LD A,(IX+0) 6EE0 2A8A6F LD HL,(#6F8A)
1 6E52 C9 RET 6EDE 18B4 JR #6E94
1 6E50 20D9 JR NZ,#6E2B 6EDB 228A6F LD (#6F8A),HL
1 6E4F 0D DEC C 6EDA 09 ADD HL,BC
1 6E4E D7 RST #10 6ED7 018000 LD BC,#0080
1 6E4C 3E0D LD A,#0D 6ED4 2A8A6F LD HL,(#6F8A)
1 6E49 CDF06D CALL #6DF0 6ED2 18CD JR #6EA1
1 6E48 7B LD A,E 6ED0 385E JR C,#6F30
1 6E47 D7 RST #10 6ECE FE47 CP #47
1 6E45 3E3A LD A,#3A 6ECC 38D3 JR C,#6EA1
1 6E43 10F3 DJNZ #6E38 6ECA FE30 CP #30
1 6E42 23 INC HL 6EC8 2851 JR Z,#6F1B
1 6E41 5F LD E,A 6EC6 FE09 CP #09
1 6E40 86 ADD A,(HL) 6EC4 2845 JR Z,#6F0B
1 6E3F 7B LD A,E 6EC2 FE08 CP #08
1 6E3C CDF06D CALL #6DF0 6EC0 2839 JR Z,#6EFB
1 6E3B 7E LD A,(HL) 6EBE FE0A CP #0A
1 6E3A D7 RST #10 6EBC 282D JR Z,#6EEB
1 6E38 3E20 LD A,#20 6EBA FE0B CP #0B
1 6E35 CDF06D CALL #6DF0 6EB8 2872 JR Z,#6F2C
1 6E34 7D LD A,L 6EB6 FE58 CP #58
1 6E31 CDF06D CALL #6DF0 6EB4 282A JR Z,#6EE0
1 6E30 7C LD A,H 6EB2 FE4B CP #4B
1 6E2F 5F LD E,A 6EB0 2822 JR Z,#6ED4
1 6E2E 85 ADD A,L 6EAE FE4E CP #4E
1 6E2D 7C LD A,H 6EAC 28D1 JR Z,#6E7F
1 6E2B 0608 LD B,#08 6EAA FE48 CP #48
1 6E29 0E10 LD C,#10 6EA7 CD6E6E CALL #6E6E
1 6E26 2A8A6F LD HL,(#6F8A) 6EA4 CD6B6D CALL #6D6B
1 6E23 CD0116 CALL #1601 6EA1 CD6E6E CALL #6E6E
1 6E21 3E02 LD A,#02 6E9E 22966F LD (#6F96),HL
1 6E1E CD636D CALL #6D63 6E9B 210000 LD HL,#0000
1 6E1B 110670 LD DE,#7006 6E97 DD21966F LD IX,#6F96
1 6E18 CD0116 CALL #1601 6E94 CD096E CALL #6E09
1 6E17 AF XOR A 6E90 ED438A6F LD (#6F8A),BC
1 6E14 CD636D CALL #6D63 6E8D CDB96D CALL #6DB9
1 6E11 11B86F LD DE,#6FB8 6E8A CD636D CALL #6D63
1 6E0E CD0116 CALL #1601 6E87 11A66F LD DE,#6FA6
1 6E0C 3E02 LD A,#02 6E84 CD0116 CALL #1601
1 6E09 CD6B0D CALL #0D6B 6E82 3E02 LD A,#02
1 6E08 C9 RET 6E7F CD6B0D CALL #0D6B
1 6E07 D7 RST #10 6E7C 326A5C LD (#5C6A),A
1 6E05 C607 ADD A,#07 6E7A 3E08 LD A,#08
1 6E03 3802 JR C,#6E07 6E79 C9 RET
1 6E01 FE3A CP #3A 6E78 F1 POP AF
1 6DFF C630 ADD A,#30 6E75 CD636D CALL #6D63
1 6DFD E60F AND #0F 6E72 119C6F LD DE,#6F9C
1 6DFC F1 POP AF 6E6F CD536E CALL #6E53
1 6DF9 CDFD6D CALL #6DFD 6E6E F5 PUSH AF
1 6DF5 CB2F SRA A 6E68 11926F LD DE,#6F92
1 6DF3 CB2F SRA A 6E65 32946F LD (#6F94),A
1 6DF0 F5 PUSH AF 6E60 DD8601 ADD A,(IX+1)
1 6D8D D1 POP DE 6E88: A6 6F CD 63 6D CD B9 6D:9B
1 6D8D D1 POP DE 6DEE 18A2 JR #6D92
1 6D8C C1 POP BC 6DEC 20D0 JR NZ,#6DBE
1 6D8B F1 POP AF 6DEB 04 INC B
1 6D88 CDB503 CALL #03B5 6DEA 05 DEC B
1 6D85 216002 LD HL,#0260 6DE8 18D4 JR #6DBE
1 6D82 110A00 LD DE,#000A 6DE7 04 INC B
1 6D7F 32866D LD (#6D86),A 6DE4 CD636D CALL #6D63
1 6D7E 87 ADD A,A 6DE1 11A26F LD DE,#6FA2
1 6D7D 87 ADD A,A 6DE0 2B DEC HL
1 6D7C F5 PUSH AF 6DDE 28DE JR Z,#6DBE
1 6D79 3A085C LD A,(#5C08) 6DDC FE04 CP #04
1 6D77 28FC JR Z,#6D75 6DDB 78 LD A,B
1 6D75 CB6E BIT 5,(HL) 6DD9 18E3 JR #6DBE
1 6D73 CBAE RES 5,(HL) 6DD8 D7 RST #10
1 6D70 213B5C LD HL,#5C3B 6DD7 05 DEC B
1 6D6F C5 PUSH BC 6DD6 23 INC HL
1 6D6E D5 PUSH DE 6DD5 77 LD (HL),A
1 6D6D E5 PUSH HL 6DD3 28E9 JR Z,#6DBE
1 6D6B DDE5 PUSH IX 6DD2 04 INC B
1 6D69 18F8 JR #6D63 6DD1 05 DEC B
1 6D68 D7 RST #10 6DCF 30ED JR NC,#6DBE
1 6D67 C8 RET Z 6DCD FE47 CP #47
1 6D65 FEFF CP #FF 6DCB 38F1 JR C,#6DBE
1 6D64 13 INC DE 6DC9 FE30 CP #30
1 6D63 1A LD A,(DE) 6DC7 2812 JR Z,#6DDB
1 6D60 C3 7A 6E 1A 13 FE FF C8 :6A
1 6D60 C37A6E JP #6E7A 6DC5 FE0C CP #0C
1 6650 SCROLTEXT DEFB 2
1 664F POSLET NOP ;
1 664D STARTLET DEFW ;NOP
1 664B COUNTLET DEFW ;
1 664A WIDTH NOP ;
1 6649 WIDTHLET NOP ;
1 6648 C9 RET ;
1 6645 SCROL6 324A66 LD (#664A),A ;
1 6642 SCROL7 3A4966 LD A,(#6649) ;
1 663F 224B66 LD (#664B),HL ;
1 663E 23 INC HL ;
1 663B 2A4B66 LD HL,(#664B) ;
1 6639 3007 JR NC,#6642 ;
1 6636 324F66 LD (#664F),A ;
1 6631 3A4F66 LD A,(#664F) ;
1 662F 2014 JR NZ,#6645 ;
1 662E 3D DEC A ;
1 662B 3A4A66 LD A,(#664A) ;
1 6629 20D7 JR NZ,#6602 ;(
1 6628 15 DEC D ;
1 6626 10FB DJNZ #6623 ;
1 6625 2B DEC HL ;
1 6623 SCROL4 CB16 RL (HL) ;
1 6621 FEFF CP #FF ;
1 6620 2F CPL ;
1 661F A3 AND E ;
1 661D 0620 LD B,#20 ;
1 661C 09 ADD HL,BC ;(32
1 661B 05 DEC B ;
1 6619 0E00 LD C,#00 ;
1 6618 42 LD B,D ;
1 6615 21FF50 LD HL,#50FF ;
1 6614 7E LD A,(HL) ;
1 6613 09 ADD HL,BC ;
1 6612 0D DEC C ;
1 6610 0600 LD B,#00 ;
1 660F 4A LD C,D ;
1 660E 09 ADD HL,BC ;
1 660A ED4B365C LD BC,(#5C36) ;
1 6609 29 ADD HL,HL ;
1 6608 29 ADD HL,HL ;
1 6607 29 ADD HL,HL ;
1 6605 2600 LD H,#00 ;
1 6602 SCROL3 DD6E00 LD L,(IX+0) ;
1 6600: 16 08 DD 6E 00 26 00 29 :1E 6678: 20 54 4D 27 4D 2E 20 00 :61
1 6600 1608 LD D,#08 ;
1 65FC ED5B4F66 LD DE,(#664F) ;
1 65F8: DD 22 4B 66 ED 5B 4F 66 :0A 6670: 33 20 53 54 55 44 49 4F :01
1 65F8 SCROL2 DD224B66 LD (#664B),IX ;
1 65F6 DD23 INC IX ;
1 65F3 324966 LD (#6649),A ;
1 65F0: 32 4A 66 32 49 66 DD 23 :18 6668: 58 49 4D 20 7F 31 39 39 :FE
1 65F0 324A66 LD (#664A),A ;
1 65EE 3008 JR NC,#65F8 ;
1 65EC SCROL1 FE20 CP #20 ;
1 65E9 DD7E00 LD A,(IX+0) ;
1 65E8: 66 DD 86 00 FE 20 30 08 :6C 6660: 54 49 54 4F 56 20 4D 41 :0A
1 65E5 DD2A4D66 LD IX,(#664D) ;
1 65E3 2007 JR NZ,#65EC ;
1 65E2 B7 OR A ;
1 65E0: 7E 00 B7 20 07 DD 2A 4D :F5 6658: 4D 45 44 20 42 59 04 20 :73
1 65DB SCROL DD2A4B66 LD IX,(#664B) ;
1 65DA C9 RET ;
1 65D8: 49 66 C9 DD 2A 4B 66 DD :4A 6650: 02 50 52 4F 47 52 41 4D :D0
1 65D7 324966 LD (#6649),A ;
1 65D4 324A66 LD (#664A),A ;
1 65D2 3E02 LD A,#02 ;
1 65D0: 4F 66 3E 02 32 4A 66 32 :3E 6648: C9 02 02 50 66 50 66 80 :67
1 65CF 324F66 LD (#664F),A ;
1 65CD 3E80 LD A,#80 ;
1 65CA 224D66 LD (#664D),HL ;
1 65C8: 4B 66 22 4D 66 3E 80 32 :A3 6640: 4B 66 3A 49 66 32 4A 66 :22
1 65C7 224B66 LD (#664B),HL ;COUNTLET -
1 65C4 215066 LD HL,#6650 ;STARTLET -
1 65C1 INIT CDAA65 CALL #65AA ;
1 65C0: C9 CD AA 65 21 50 66 22 :C3 6638: 66 30 07 2A 4B 66 23 22 :5B
1 65C0 C9 RET ;
1 65BE D3FE OUT (#FE),A ;
1 65BD AF XOR A ;
1 65BB EDB0 LDIR ;
1 65B9 3646 LD (HL),#46 ;
1 65B8: 02 36 46 ED B0 AF D3 FE :B8 6630: 14 3A 4F 66 CB 0F 32 4F :F4
1 65B6 01FF02 LD BC,#02FF ;
1 65B4 EDB0 LDIR ;+FLASH*128)
1 65B3 75 LD (HL),L ;
1 65B0: 01 00 18 75 ED B0 01 FF :40 6628: 15 20 D7 3A 4A 66 3D 20 :E1
1 65B0 010018 LD BC,#1800 ;
1 65AD 110140 LD DE,#4001 ;
1 65AA CLS 210040 LD HL,#4000 ;
1 65A9 C9 RET ;
1 65A8: 65 C9 21 00 40 11 01 40 :EE 6620: 2F FE FF CB 16 2B 10 FB :C9
1 65A6 CDAA65 CALL #65AA ;
1 65A4 38EE JR C,#6594 ;
1 65A2 CB1F RR A ;LOOP1.
1 65A0: DB FE CB 1F 38 EE CD AA :65 6618: 42 0E 00 05 09 06 20 A3 :A5
1 65A0 DBFE IN A,(#FE) ;
1 659E 3E7F LD A,#7F ;
1 659D 76 HALT ;
1 659B 10F9 DJNZ #6596 ;
1 659A C1 POP BC ;
1 6598: DB 65 C1 10 F9 76 3E 7F :3A 6610: 06 00 0D 09 7E 21 FF 50 :80
1 6597 CDDB65 CALL #65DB ;
1 6596 LOOP2 C5 PUSH BC ;
1 6594 LOOP1 0602 LD B,#02 ;
1 6591 CDC165 CALL #65C1 ;
1 6590: FB CD C1 65 06 02 C5 CD :7D 6608: 29 29 ED 4B 36 5C 09 4A :DD
1 6590 FB EI ;
1 65535 Disk-Tape loader
1 65112.
1 64600, 5CE2 C9 RET
1 64003 -
1 64000 "WHAM+AY".
1 62999 -
1 60999 -
1 6020 PRINT '"From edit mode the (OR 0 TO EXIT)"
1 6015 PRINT '"Octave changes are 8080 PRINT '"5 WHITE NOISE EFFEC
1 6010 PRINT '"The keys ""CS"" to G"
1 60009 -
1 60000.
1 60000.
1 6000 PRINT "HELP - KEYBOARD LAYO E AREAS BELOW"
1 60 CALL NAME-ABS ;
1 59: POKE 51105,18 430 IF INKEY$="Y" THEN POKE AD
1 580 RET ;
1 570 CALL TRDOS ;
1 56351,0 -
1 560 LD C,#07 ;
1 55: POKE 23606,104: POKE 23607,2
1 5560 GO TO 7999 8030 PRINT ''" HELP EXISTS IN TH
1 5540 PRINT AT 18,O;"The editor a 8010 BORDER 7: CLS
1 5530 PLOT O,30: DRAW 24,70: DRAW 7999 PAUSE 0: CLS
1 55250: 2100FA LD HL,64000
1 5520 PRINT AT 15,O;" A D S R OARD'."
1 5510 PRINT '"Envelopes are volum 7030 PRINT '"An extra envelope i
1 5500 PRINT "HELP - ENVELOPES" turn yellow."
1 550...590.
1 550 LD A,#02 ;
1 54620 (D55CH).
1 540 ORG #B8E5 ;
1 530 ; C_A_T ;
1 520 JR EN ;
1 52.
1 52 THEN LET P=252
1 510 DJNZ PRB ;
1 510 4043 LET EN=INT (E/16): LET V=O:
1 5040 GO TO 7999 me level status window will
1 5030 PRINT ''"The peripheral dev nnel for noise."
1 5020 PRINT ''"Tunes are saved wi 6540 GO TO 7999
1 5010 PRINT '''"Tunes can be save at the 'mic' socket and can
1 500: IF V>7 THEN GO TO 805 LET F$="": GO TO 1925
1 5000...6000
1 5000 PRINT "HELP - LOAD & SAVE" t of the spectrumis also present
1 500 INC HL ;
1 50 ORG #A64E ;
1 5,25 HD)
1 49715, 49719
1 49711,
1 4930 GO TO 990 6510 PRINT '''''"The sound outpu
1 4920 IF Q$="Y" THEN LET BW=4: L 6500 PRINT "HELP - AMPLIFICATION
1 4910 FOR Q=O TO RW-I: FOR W=5900 pressing a key in the row (""Q""
1 490 LD (HL),#20 ;
1 480 PRB ;
1 470 RET ;
1 46H = 70,
1 460 LD (HL),#43 ;
1 4510 IF PEEK N=63 THEN RETURN REPETITIONS:";RW'"EFFECT CHANNE
1 4500 FOR N=A+B TO A+E: PRINT #O; 4870 GO TO 990
1 450 EN ;
1 4470 LET N=B-I: GO TO 4710 970
1 4450 IF V=O THEN LET V=I: GO TO tunes are exchangen.": BEEP .1,
1 4440 GO SUB 4500: IF C=O THEN L 4860 IF INKEY$="E" THEN GO SUB
1 4430 IF C=3 THEN LET A=62000 GO TO 970
1 4420 IF C=2 THEN LET A=61000 loaded.": BEEP .1,20: PAUSE 50:
1 4410 IF C=O OR C=I THEN LET A=6 ZE USR 55237: GO SUB 30: INPUT ;
1 4400 LET V=O: IF PEEK 62999=O TH O 990
1 440 DJNZ NEXT_CHAR ;
1 4360 INPUT "Tune change (12=Octa 26: PAUSE 50: GO TO 990
1 43520.
1 43520
1 4350 LET C=VAL INKEY$ .K. - tune in memory.": BEEP .1,
1 4340 PAUSE O: IF INKEY$<"0" OR I 519,1: GO SUB 40: RANDOMIZE USR
1 4335 INPUT ;: PRINT #O;"WHICH CH 4820 PAUSE O
1 4330 LET R=(INKEY$="U")-(INKEY$= #O;"L-LOAD tune from memory"'"E
1 4325 PAUSE O: IF INKEY$<>"U" AND O,O;"S-SAVE tune to memory"
1 4320 INPUT ;: PRINT #0;"Press: 4750 GO TO 970
1 4310 IF B<I OR B>999 OR E<B OR E : POKE 49723,PEEK 23670: POKE 49
1 4300.
1 4300 INPUT AT O,O;"BEGIN (1-999) 720,PEEK 23671
1 430 INC HL ;
1 4210 GO TO 4000 : POKE 49719,PEEK 23670: POKE 49
1 4200 POKE AD,V 4730 RANDOMIZE (FN P(49721)-1+N)
1 420 INC DE ;
1 4190 PRINT #O;"VOLUME LEVEL REQU : POKE 49715,PEEK 23670: POKE 49
1 4180 PRINT INVERSE I;AT N+5,20; 712,PEEK 23671
1 4170 POKE AD,V*16: GO TO 4000 : POKE 49711,PEEK 23670: POKE 49
1 4160 IF V=O THEN GO TO 4180 4710 RANDOMIZE (FN P(49713)-1+N)
1 4150 GO SUB 2500: IF V=9 THEN G E O: GO TO 990
1 4140 PRINT #O;"ENVELOPE NUMBER ( 4610 PRINT #O;"Transponierung is
1 4135 POKE AD,FR: LET AD=AD+I D R=I);("low" AND R=-I)
1 4130 PRINT AT N+5,10; INVERSE I; 0 AND N<62000);("3" AND N>62000)
1 4120 INPUT "ENTER THE FREQUENCY 4550 NEXT N: RETURN
1 4105 LET AD=49962+V*2 4530 IF V=O THEN IF T>52 OR T<O
1 4100 LET N=V 4520 LET T=S*R+PEEK N
1 410 LD (HL),A ;
1 4080 GO SUB 2500 4515 IF PEEK N>=53 THEN GO TO 4
1 40000:
1 400, 411...417, 510,
1 400 JR Z,PRB ;
1 40 ; G_E_T ;
1 4,
1 390 CP #0D ;
1 3800 IF PEEK 50768=191 THEN POK IS 0"
1 380 LD A,(DE) ;
1 3700 LET V=PEEK 49549-I: LET V=V 4060 NEXT A
1 370 NEXT_CHAR ;
1 3610 POKE 52562,PEEK 49727-18: P 4050 PRINT INK 5+(A/2=INT (A/2)
1 3600 RANDOMIZE USR 52503 IF EN=O THEN LET V=E
1 3598 IF V=7 THEN INPUT "HOW MAN 4035 LET A$="QWERTYUIO"
1 3597 IF V=6 THEN GO TO 9200 EQUENCY ENVELOPE VOLUME"
1 3595 IF V=5 THEN GO TO 3900 4030 PRINT '' PAPER I;"NO KEY FR
1 3590 IF V=3 THEN GO TO 3700 AT 2,A*4-3;"
1 3580 IF V=2 THEN GO TO 3300 I,A*4-4;A; INK 2; PAPER 7;"
1 3570 IF V=1 THEN GO TO 4000 I: RANDOMIZE USR 50003: PRINT AT
1 3560 IF V=O THEN RUN 4020 FOR A=I TO 8: POKE 50004,A-
1 3550 PRINT #O;" PRESS A NUMBER ORDER O: CLS
1 3548 PRINT '"7 TAKTS-PERIOD: "; 4000 REM edit preset noise
1 3547 PRINT '"6 LOAD & RECOMPILE" RUN
1 3545 PRINT '"5 COMPILE & SAVE" 3990 LET LEN=5024: GO SUB 2010:
1 3540 PRINT '"4 LISTEN TO TUNE" 3980 POKE 64062,PEEK 49727-18
1 3531 PRINT " FROM ";: GO SUB 80 3960 PRINT '"TO TAILOR SPEED POK
1 3530 PRINT '"3 CHANGE SAVE & LOA ROUTINE WILLRETURN ON A KEYPRES
1 3520 PRINT '"2 SET CHANNEL LOOP PILED FROM 60000 TO 65024. CAL
1 3510 PRINT '''"1 SET PRESET NOIS N
1 3500 PAPER 6: BORDER 6: CLS : PR NELS AND LOOP OPTIONFOR THE EFFE
1 350 LD B,#08 ;
1 3420 GO TO 3300 THE 'W' KEY FOR THE FIRST 3 CHAN
1 3415 POKE ADDR+I,INT (BYTE/256): T ' PAPER 2; INK 7;" END MARKER
1 3410 IF NT>950 THEN GO TO 3395 3930 IF ER=I THEN INPUT ': PRIN
1 3405 LET BYTE=FN P(ADDR)+NT 3920 NEXT A
1 3400 LET ADDR=49709+V*4 3916 IF Z>999 THEN LET ER=I
1 340 LD HL,#5CDD ;
1 3395 INPUT "HOW MANY NOTES ";NT : ";Z
1 3390 PRINT AT 3+V*2,I;">" 3915 PRINT "LENGTH CHANNEL ";A;"
1 3385 IF V>4 THEN GO TO 3370 Z=Z-(59000+(1000*A))
1 3380 GO SUB 2500: IF V=O THEN R 3910 LET ER=O: FOR A=I TO 4: POK
1 3370 PRINT #O;"CHANNEL ? (1 TO 4 3900 PAPER 7: BORDER 7: CLS : PR
1 330 NAME ;
1 32768,4800
1 320 RET ;
1 310 CALL TRDOS ;
1 31 THEN GO TO 4120 "1" AND N<61000);("2" AND N>6100
1 3040 PRINT #O;"WHICH ENVELOPE? ( piece which could be a fade in
1 3030 FOR A=I TO 8: POKE 50004,A- 3350 PRINT AT 11,3;"CHANNEL FX
1 3010 PAPER 5: BORDER 5: INK O: B 3340 PRINT AT 9,3;"CHANNEL 3 S
1 3000 REM envelope editor TART + ";FN P(49717)-61001
1 300 POP DE ;
1 30 ABS EQU #9C40 ;
1 30 AD F$CODE 60000
1 3,OR 0 FOR ALL)": GO SUB 2500: I 1950 GO SUB 30: RETURN
1 3,OR 0 FOR ALL)": GO SUB 2500: I 1040 IF X=3 THEN GO TO 3500
1 3,
1 2920 RETURN 3330 PRINT AT 7,3;"CHANNEL 2 S
1 2915 IF INKEY$<>"" THEN GO TO 2 3320 PRINT AT 5,3;"CHANNEL 1 S
1 2910 BEEP .01,-20: INPUT ' T MODIFICATION"
1 2900 REM RETURN+SOUND+CLBOT 3310 PRINT INK I;" LOOP LIMI
1 290 POP HL ;
1 2830 PRINT AT 21,O;: RETURN LS
1 2820 IF F$=" " AND D$=" 3300 REM PARAMS
1 2810 DIM F$(10): INPUT AT O,O;(( X,E+2; PAPER 6;"
1 2800 REM filenames sub POKE (ENBAS+E),X-I: PRINT AT 20-
1 280 LD C,#0B ;
1 270 CALL NAME-ABS ;
1 2670 STBUF DS #10 ;"
1 2660 ;
1 2650 RET
1 2640 GO TO RET X=PEEK (ENBAS+E): IF X>O THEN
1 2640 POP HL
1 2630 LET V=10+CODE A$-CODE "A": -X,E+2;"
1 2630 LD (DISPL),A ;A =
1 2620 IF A$<="9" THEN GO TO 2590 POKE (ENBAS+E),X+I: PRINT AT 19
1 2620 LD A,L
1 2610 NEXT4 ADD HL,DE
1 2610 LET A$=INKEY$: IF A$<"0" OR 3140 IF CODE INKEY$=11 THEN LET
1 2605 POKE 23658,8 HEN LET E=E+I: GO TO 3110
1 26000,30000
1 2600 REM expect hex digit sub. 3130 IF CODE INKEY$=9 AND E<15 T
1 2600 JR LOOP3
1 260 PUSH DE ;
1 2590 NEXT3 LD (SECTR),A
1 2590 LET V=VAL A$: GO TO RET 10
1 2580 XOR A
1 2570 LD (TRACK),A
1 2560 INC A
1 2550 LET A$=INKEY$: IF A$<"0" OR 3120 PAUSE O: IF CODE INKEY$=8 A
1 2550 LD A,(TRACK) ;A =
1 2540 JR NZ,NEXT3
1 2530 POP HL
1 2520 CP (HL)
1 2510 ; "
1 2500 REM expect num sub. : GO SUB 62
1 2500 LD HL,QSECT ;HL =
1 250 PUSH HL ;
1 25.
1 2490 PUSH HL
1 2480 INC A
1 2470 LD A,(SECTR) ;A =
1 2460 JR C,NEXT4
1 2450 SBC HL,DE
1 2440 LOOP3 OR A
1 2430 LD D,A
1 2420 LD (TRACK),A ;
1 2410 LD (SECTR),A ;
1 2400 INPUT ;: PRINT #O;TAB 11; F 3100 LET E=O
1 2400 XOR A
1 240 ORG #A3E7 ;
1 2390 LD E,A
1 2380 LD A,(SSIZE) ;A =
1 2370 LD HL,#0000
1 2360 FDISP EQU $+1
1 2350-2650:
1 2350 G_TSD PUSH HL
1 2340 ;
1 2330 NEXT2 RET
1 2320 JR NC,LOOP1
1 2310 PRINT : GO TO 2800 W O,35: DRAW -35,O: DRAW O,-35
1 2310 JR Z,NEXT2
1 2300).
1 2300 RANDOMIZE USR 15619: REM : O; PAPER I; INK 7;A$(A): NEXT A
1 2300 SBC A,C
1 230 ; P_U_T ;
1 23.9.93:
1 2290 OR A
1 2280 POP AF
1 2270 LD C,#01
1 2260 SSIZE EQU $+1 ;
1 2250 NEXT1 LD (SECTR),A
1 2240 XOR A
1 2230 LD (TRACK),A
1 2220 INC A
1 2210 LD A,(TRACK) ;A =
1 2200 JR NZ,NEXT1
1 220 JR CONT ;
1 2190 CP 0
1 2180 ;
1 2170 QSECT EQU $+1 ;
1 2160 INC A
1 2150 LD A,(SECTR) ;A =
1 2140 PRINT #O;TAB 12; PAPER 4;" 3070 PAPER 6: GO SUB 50: PAPER 5
1 2140 DJNZ ???00
1 2130 IF ERR<>O THEN GO TO 2400 EXT A
1 2130 ???00 ADD HL,DE
1 2120 IF D$="TR DOS" THEN RANDOM WAVEFORM",
1 2120 LD DE,#0100
1 2110 IF D$="TAPE" THEN VERIFY F ED";AT 17,19;"USE ARROWED",AT 18
1 2110 LD B,A
1 2100 LET ERR=O: INPUT ;: PRINT A 3056 PRINT PAPER 7;AT 14,19;"PR
1 2100 LD A,(SSIZE) ;A =
1 210 PUSH IX ;
1 2090 POP HL
1 2080 CALL #3D13 ;
1 2070 LD BC,#0105 ;
1 2060 IF ERR<>O THEN GO TO 2400 3045 PRINT AT 10,O''
1 2060 PUSH HL
1 2050, 2060 -
1 2050 IF D$="TR DOS" THEN LET ER 1 TO 8; 0-EXIT)": GO SUB 2500: I
1 2050 POP HL
1 2040 LD E,(HL)
1 2030 ADD HL,BC
1 2020 ;
1 2010 LD HL,STBUF ;HL =
1 200?
1 2000: GO SUB 4500 30: INPUT ;: PRINT #O;" O.K. -
1 2000 LD B,#00
1 200 PUSH HL ;
1 20 TRDOS EQU #3D13 ;
1 2.
1 2,
1 2 -
1 1990 LD C,0
1 1983/
1 1980 SECTR EQU $+1 ;
1 1970 PUSH HL
1 1960 LD D,0
1 1950 TRACK EQU $+1 ;
1 1940 LOOP1 PUSH AF
1 1930, 1935 -
1 1930 LD A,C
1 1920 DEC C
1 1910 ADD HL,DE
1 1900 DJNZ _LOOP
1 190 LD HL,(#5CE8) ;
1 1890 INC C
1 1880 SBC HL,DE
1 1870 _LOOP OR A
1 1860 LD DE,#0100
1 1850 INC B
1 1840 LD B,A
1 1830 LD A,#00
1 1820 DISPL EQU $+1 ;
1 1810 POP HL
1 1800 LD (FDISP),HL
1 180 CALL TRDOS ;
1 1790 ADD HL,BC ;HL =
1 1780 LD HL,(FDISP)
1 1770 LD B,#00
1 1760 PUSH HL
1 1750 ;"
1 1740-2330:
1 1740 READS CALL G_TSD ;
1 1730 ;
1 1720 ;C =
1 1710 ;HL =
1 170 LD C,#05 ;
1 1690 ;
1 1680 JP <
1 1670 CALL READS
1 1660 LD HL,<
1 1650 LD C,<
1 1640 CALL <
1 1630 CALL READS
1 1620 LD HL,<
1 1610 _GAM_ LD C,<
1 1600 ORG #5B00
1 160 XOR A ;
1 1590 GAMLO EQU $
1 1580 ;
1 1560 ;
1 1550 ; ("
1 1540 ;iS-DOS GAME LOADER V1.00
1 1530 ;
1 1520 RET
1 1510 DJNZ BEEP1
1 1509-1680
1 1500 - 2000.
1 1500 LD L,#FE
1 150 LD DE,(#5CEB) ;
1 15
1 1490 OUT (#FE),A
1 1480 XOR #11
1 1470 JR NZ,BEEP1
1 1460 BEEP2 DEC L
1 1450 LD H,#EE
1 1440 OUT (#FE),A
1 1430 XOR #11
1 1420 JR NZ,BEEP2
1 1410 BEEP1 DEC H
1 1400 LD B,A
1 140 LD B,A ;
1 1390-1520:
1 1390 BEEP XOR A
1 1380 ;
1 1360 ;
1 1350 RET
1 1340 ;
1 1330 ;
1 1320 ;
1 1310 ;
1 1300 LD A,#F4 ;
1 130 LD A,(#5CEA) ;
1 1290 XOR A
1 1280 RST #10
1 1270 LD C,#07 ;
1 1260 POP HL
1 1250 CALL BEEP ;"
1 1240 RST #10
1 1230 LD C,#67 ;
1 1220 LD HL,TEXT2 ;
1 1210 RST #10
1 1200 LD C,#61 ;
1 120 - 150
1 120 LD HL,(#9C76-ABS) ;
1 1190 LD A,2
1 1180 LD (IX+6),10
1 1170 LD (IX+4),23
1 1160-1350:
1 1160 ERROR LD IX,V_WND ;
1 1150 ;
1 1130 ;
1 1120 RET
1 1110 XOR A ;
1 1100 NEXT9 LD (FDISP),DE
1 110 CALL TRDOS ;
1 1090 ;
1 1080 LD D,(HL) ;DE =
1 1070 INC HL
1 1060.
1 1060 LD E,(HL)
1 1050 INC HL
1 1040 JP NZ,ERROR ;
1 1030 DEC A
1 1021...1050.
1 1021...1050,
1 1020 LD A,(HL)
1 1010 EXX
1 1000.
1 1000 RST #10
1 100 LD C,#08 ;
1 10 CONT EQU #A698 ;
1 1,
1 1 TO 8,0=NONE)" not available.": BEEP I,O: PAUS
1 0C0AH (3082 DEC).
1 0990 ;
1 0980 ;
1 0970 LD C,#06 ;
1 0960 JR NZ,NEXT9 ;
1 0950 AND #40
1 0940 LD A,(HL) ;
1 0930 ADD HL,BC
1 0920 LD BC,00011
1 0910 POP HL
1 0900 LD D,(HL) ;DE =
1 0890 INC HL
1 0880 LD E,(HL)
1 0870 ADD HL,BC
1 0860 LD BC,#0011
1 0850 PUSH HL
1 0840 EXX
1 0830 RET C
1 0820 RST #10
1 0810 LD C,#34 ;
1 0800 LD HL,FNAME ;
1 0790 ;
1 0780 LDIR ;
1 0770 LD BC,#0010
1 0760 LD DE,STBUF
1 0750 ADD HL,BC
1 0740 LD BC,00039
1 0730 ;
1 0720 LD (QSECT),A ;
1 0710 LD A,(HL)
1 0700 INC HL
1 0690 LD (SSIZE),A ;
1 0680 LD A,(HL)
1 0670 ADD HL,BC
1 0660 LD BC,00024
1 0650 EXX
1 0640 RET C
1 0630 RST #10
1 0620 LD DE,#0000
1 0610 ;
1 0600 ;
1 0590-1120:
1 0590 INITS LD C,#06 ;
1 0580 ;
1 0560 ;
1 0550 JP _GAM_ ;
1 0540 LD SP,<
1 0530 LD (#5CC2),A ;
1 0520 LD A,#C9 ;
1 0510 IM 1 ;
1 0500 DI
1 0490 RET C
1 0480 CALL INITS ;
1 0470 ;
1 0460 LDIR ;
1 0450 LD BC,#0100
1 0440 LD DE,_GAM_
1 0430 LD HL,GAMLO
1 0420 RST #10
1 0410 LD C,#67 ;
1 0400 LD HL,TEXT1 ;
1 0390 RST #10
1 0380 LD C,#61 ;
1 0370 LD A,2
1 0360-0550
1 0360 START LD IX,V_WND ;
1 0350 ;
1 0340 DB 9,24
1 0330 V_WND DB 4,9,6,24,58,5 ;"
1 0320 ;
1 0310 DB #03
1 0300 DM "
1 0290 DB #0D,
1 0280 DM "
1 0270 DB #0D,#0D,
1 0260-0310
1 0260 TEXT2 DM "
1 0250 ;
1 0240 DB #03
1 0230 DM " by M.Helloween"
1 0220 DB #0D,
1 0210 DM " iS-DOS Game Adaptation"
1 0200 DB #0D,
1 0190 DM " &"
1 0180 DB #0D,
1 0170 DM "Loader v1.00"
1 0160-0240
1 0160 TEXT1 DM "iS-DOS Game" ;"
1 0150 ;
1 0140 FNAME DM "<
1 0130 ;
1 0120 ; "
1 0100 ;
1 0090 JP START
1 0080 ORG #5DC0
1 0070 ;
1 0050 ;
1 0040 ; Zeus Assembler ( PHT v3.6 )
1 0030 ;
1 0020 ; 25-Nov-1993 (C) by M.Helloween
1 0010 ;iS-DOS Utility: Game Loader v1.00
1 0000-3FFFF.
1 0000 : PRINT #O;" O.K. - tune is
1 0.
1 0,80+X 00: REM set volume
1 0 re
1 /CODEMASTERS/
1 /1000) THEN POKE PW,PEEK W: NEX the other control keys."
1 .1,20
1 ...64015.
1 ... -I).
1 ... ... ... ... ;
1 ... ... ... ...
1 . Whilst the ""T"" key changes t 8100 PRINT #O;"PRESS THE CORRESP
1 - SYST MENU.
1 - EXT.MODE.
1 - D11-D12,
1 - CODE.
1 - 60000).
1 - 15 (F),
1 - "SPECTROFON" -
1 - "EXAMINE DOOR".
1 - KARA, KELI
1 - 20 BORDER 0: PAPER 0: INK 0: P
1 ,O: PAUSE O: RETURN APER 7; FLASH I;"^": BEEP .005,O
1 , drum roll, music intro etc. Y 3810 IF PEEK 50768=223 THEN POK
1 +16: GO TO 830 1940 REM IF PEEK 60000>99 THEN
1 ********************************* SPECTRUM,
1 ********************************* PULL, TOUCH, THUMP, RUB.
1 ********************************* 49442,0 -
1 ): RETURN DR,PEEK (ADDR-I): GO TO 960: REM
1 ) ITOR AND INSERT THE MARKER. USE
1 (Wargames).
1 (VENT SYSTEM)
1 (TR-DOS). "
1 (TR-DOS)
1 (Stone Road 73)
1 (SPELL).
1 (SEARCH MODE),
1 (ROBBER, THIEF
1 (PRESS PUTTON),
1 (P).
1 (Multi-User Entertainment),
1 (M-KEY).
1 (LYRE)
1 (EXT.MODE).
1 (EXT.MODE)
1 (ERROR),
1 (CLERIC,PRIST
1 (BITE LIP).
1 (ACCESS CODE: 94656981) 33199,0 -
1 (32-127).
1 (3-15).
1 (272)-2-56-09
1 (1530 - 2670)
1 (121019,
1 (1-4).
1 (1-3, OR 0 FOR ALL) -
1 (0110 -
1 (0...31,
1 (0 TO EXIT)": GO SUB 2500: IF V> 4015 PRINT INK 6;"DEFINED ENVEL
1 (0 TO 31) ";FR: IF FR<O OR FR> 4600 INPUT ;: PRINT #O;"Tune ";(
1 (0 TO F) -
1 (#5B00),
1 ("Transponierung" AND V=I),N-A;" W;" START:";FW;" END:";LW'" TO C
1 ("Joystick
1 ( A )"
1 $CODE STR,LEN ,19;"KEYS TO EDIT",AT 19,19;"THE
1 "mons4b" CODE.
1 "m.box+ay". 404 IF ACH1=63 OR ACH2=63 OR AC
1 "m.box+ay".
1 "adventure"
1 "Zap text".
1 "ZX-Spectrum".
1 "Y" THEN RETURN V*4-4;V
1 "WHAM+AY".
1 "WHAM+AY".
1 "WHAM+AY".
1 "WHAM+AY",
1 "WHAM+AY" SAVE "WHAM+AY"
1 "WHAM+AY"
1 "WHAM+AY"
1 "WHAM".
1 "WHAM".
1 "WHAM").
1 "WHAM THE MUSIC BOX",
1 "UNIT QUANTI-
1 "The Hulk",
1 "The HULK".
1 "TURBO-90".
1 "THE TALES OF ERIK
1 "Spark 1.0,2.0..1"
1 "RENEGA-
1 "Press ENTER for CATALOGUE DISK" 3160 IF INKEY$=CHR$ 13 THEN GO
1 "PROFI": "
1 "Mobile"
1 "Memory Editor"
1 "Memory Editor"
1 "Mega Pro et Contra".
1 "Mega Pro et Contra" -
1 "MONS4".
1 "MONITOR READY",
1 "Hampstead" (Mel-
1 "HOW MANY NOTES"
1 "HAMPSTEAD".
1 "Galicia is
1 "Fast". iS-DOS
1 "Erik the Viking".
1 "EXAMPLE" CODE
1 "EXAMPLE"
1 "ENTER".
1 "ENTER DOOR"
1 "ELITE"
1 "D") -EXCHANGE tune memory<->editor"
1 "CONNECT", GO -
1 "Barbarian"
1 "Adventure"
1 "ARTSTUDIO".
1 ";AT 21,A*4-I;"
1 ";AT 11,20;" " t
1 ": PAUSE 0
1 "0" 4720 RANDOMIZE (FN P(49717)-1+N)
1 ""EXTEND MODE""key is used to pl 8110 GO SUB 2500
1 ""."" are mapped to a piano keyb 8050 PRINT '"2 ENVELOPES"
1 " ; #0 ; AT 3 , 0 ; AT 0 , 0 ; " "
1 " 3970 RANDOMIZE USR 53550
1 !), 0540: <
1 !!!
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (ZX-
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 waveforms." s interpreted so assign one cha
1 volume rangeis 0 to F (F is 15 noise and canbe edited with the
1 used to extend this." 8070 PRINT '"4 AMPLIFICATION"
1 tel 246-47-38 fax 248-33-52.
1 rename (iS-DOS)
1 recompiling.": GO SUB 1900 ~~~~~~~~~~~~~~~~~~~~
1 is also a wayof preserving your stead of notes.Only one effect i
1 iS-DOS'e,
1 iS-DOS'a
1 iS-DOS ?"
1 iS-DOS
1 iS-DOS
1 gamefiledat (
1 filecopy.com
1 ZX-128 *********************************
1 ZX SPECTRUM
1 VIR.res,
1 VAIN=RATS.
1 The HULK
1 TR-DOS.
1 TR-DOS.
1 TONE UP OR DOWN ?" ODE 60000: GO TO 1940
1 TO 650: REM short cut 1910 GO SUB 2800
1 SPACE,
1 SINTEZ-M.
1 SINTEZ-2 -
1 SHIELD BELINUS.
1 SEMITONES (0 TO 7) ?": GO SUB 2 ADING ANY TUNE FROM CASS TAPE:":
1 RST 16.
1 RS232
1 RPG (Role-Playing
1 RESET (
1 REBEL PLANET
1 RANDOMIZE USR 32768
1 PRESS A NUMBER (0 TO EXIT)
1 POKE ADDR,BYTE-256*PEEK (ADDR+I OUT OF RANGE ERROR RETURN TO ED
1 POKE 16 03 1C 23 24
1 PC-REVIEW.
1 PC-REVIEW,
1 O.K. ": BEEP .1,26: BEEP .1,20 3080 LET A$="123456789ABCDEF": F
1 O,A*4-4;A; INK 2; BRIGHT I;"
1 Nantucket Corpo-
1 NEXT A 575 IF INKEY$="S" THEN GO TO 8
1 N 5-6
1 N 11-12
1 MUGS (Multi
1 MERCENARY II,
1 MENU" ilation Abandoned.": PAUSE O: RU
1 MEGA-
1 JP, CALL
1 IskraSOFT'a
1 IskraSOFT".
1 INKEY$<>"D" THEN GO TO 4325 4810 IF PEEK 43519=1 THEN PRINT
1 IBM-PC,
1 HERTZ SHIP,
1 HACKER.1
1 GO, LOOK,
1 GAME, RST #10.
1 FI-
1 ELITE,
1 EFFECTS CH
1 DUN DARACH - Marsh Street 34
1 DIGITAL INTEGRATION
1 DELETE
1 DEF FN F(...)=USR
1 D61AH),
1 D612H.
1 D588 C9 RET ;
1 D585 CD3C20 CALL #203C ;
1 D582 018600 LD BC,#0086 ;
1 D57F 118AD5 LD DE,#D58A ;
1 D57C CD0116 CALL #1601 ;
1 D57A 3E01 LD A,#01 ;
1 D578 10FB DJNZ #D575 ;
1 D577 D7 RST #10 ;
1 D575 3E5F LD A,#5F ;
1 D573 0620 LD B,#20 ;20
1 D572 D7 RST #10 ;
1 D570 3E04 LD A,#04 ;
1 D56F D7 RST #10 ;
1 D56D 3E11 LD A,#11 ;
1 D56C D7 RST #10 ;
1 D56A 3E00 LD A,#00 ;
1 D569 D7 RST #10 ;
1 D567 3E13 LD A,#13 ;
1 D566 D7 RST #10 ;
1 D564 3E16 LD A,#16 ;
1 D561 CD0116 CALL #1601 ;
1 D55F 3E02 LD A,#02 ;
1 D55C CDB9BD CALL #BDB9 ;
1 D&D (Dungeons & Dra-
1 Conan the
1 Clipper,
1 Cinder BARREL
1 CALL #D612,
1 C783H.
1 C527H.
1 C524 C303C5 JP #C503 ;
1 C523 C8 RET Z ;
1 C522 B9 CP C ;
1 C521 3C INC A ;
1 C51E CA83C7 JP Z,#C783 ;
1 C51D B9 CP C ;
1 C51C 3C INC A ;
1 C519 CA27C5 JP Z,#C527 ;
1 C518 B9 CP C ;
1 C516 3EC3 LD A,#C3 ;
1 C515 C8 RET Z ;
1 C514 B9 CP C ;
1 C513 3D DEC A ;
1 C512 C8 RET Z ;
1 C511 B9 CP C ;
1 C510 3D DEC A ;
1 C50F C8 RET Z ;
1 C50E B9 CP C ;
1 C50D 3D DEC A ;
1 C50C C8 RET Z ;
1 C50B B9 CP C ;
1 C509 3EFE LD A,#FE ;
1 C506 CDADBD CALL #BDAD ;
1 C503H.
1 C503 CDCAC3 CALL #C3CA ;
1 C500 CDB9BD CALL #BDB9 ;
1 C41A C300C5 JP #C500
1 C417 CD1FBE CALL #BE1F
1 C414 CD18C9 CALL #C918
1 C350 C314C4 JP #C414
1 British Telecom
1 BASIC.
1 AY-3-8910 (
1 ARE YOU SURE YOU WANT IT HERE?
1 AND D$="TR DOS")''"FILENAME: ") TO 3000
1 A$>"F" THEN GO TO 2610 X=PEEK (ENBAS+E): IF X<15 THEN
1 A$>"9" THEN GO TO 2550 ND E>O THEN LET E=E-I: GO TO 31
1 ;: RANDOMIZE USR 51153
1 962 FOR A=O TO 5: NEXT A: PRINT ODE STR,LEN
1 961 REM FOR A=O TO 5: NEXT A: 2020 GO SUB 2800
1 960 REM back to play effect T 20,O;"SAVE TO ";D$;
1 860 POKE ADDR,BYTE 2010 GO SUB 80: INPUT ;: PRINT A
1 850 LET BYTE=E+8+V 2005 LET LEN=4170: GO SUB 40
1 840 PRINT #O;"WHICH CHANNEL (1- erts the old style tunes.
1 830 INPUT ' ,53: RUN : REM this routine conv
1 824 GO TO 820 RANDOMIZE USR 50011: POKE 60000
1 822 IF INKEY$="D" THEN LET E=E 1935 IF ERR<>O THEN GO TO 2400
1 820 IF INKEY$="U" THEN GO TO 8 1930 LET ERR=USR 15619: REM : LO
1 815 INPUT ': PRINT #0;" BEND 1925 IF D$="TAPE" THEN LOAD F$C
1 810 LET E=V*32 1920 PRINT "SEARCHING FILE: ";F$
1 805 INPUT ': PRINT #0;"HOW MANY F$=" " THEN PRINT "LO
1 800 REM NOTEBENDING 1915 IF D$="TAPE" THEN CLS : IF
1 8
1 730 LET E=V/2: LET E=E-0.25: GO T 20,O;"LOAD FROM ";D$;
1 720 GO SUB 2600 1905 GO SUB 80: INPUT ;: PRINT A
1 710 PRINT #O;" NEW VOLUME LEVE 1060 RUN
1 705 INPUT ' 1050 IF X=59 THEN GO TO 8000
1 700 REM alter volume UN
1 7 ???????????????????? Far"
1 670 POKE ADDR,BYTE: GO TO 960 1046 IF X=5 THEN GO SUB 1900: R
1 660 LET BYTE=12+V+E*32 UN
1 65112.
1 650 PRINT #O;"WHICH CHANNEL (1- 1030 IF X=2 THEN GO TO 3000
1 64000
1 640 LET E=V 1021 IF X=51 THEN GO TO 500
1 63999 0.
1 630 GO SUB 2500: IF V<O OR V>7 0000
1 620 PRINT #O;" PRESS DESIRED EN 1000 REM MAIN LOOP
1 610 FOR A=I TO 7: POKE 50004,A- 991 INPUT ;: OUT 254,PEEK 49481
1 605 INPUT ' 990 REM effect re-entry
1 600 REM place envelope USR 50474: GO TO 1020
1 590 GO TO 550 985 PRINT AT O,O;: LET X=65280-
1 585 IF INKEY$=" " THEN GO TO 9 981 INPUT ;: FOR A=O TO 5: NEXT
1 582 IF INKEY$="M" THEN GO TO 4 USR 51096: GO TO 1020
1 580 IF INKEY$="K" THEN GO TO 3 970 REM back to edit mode
1 579 IF INKEY$="C" THEN GO TO 4 965 LET X=65280-USR 50113: GO T
1 50000 -
1 5. WHITE NOISE EFFECTS
1 454150,
1 4410 26: BEEP .1,20: PAUSE 50: GO TO
1 402 LET ACH2=PEEK FN P(49715)
1 401 LET ACH1=PEEK FN P(49711) 300: REM tune transponierung
1 400 LET ADDR=ADDR-I: REM loop e repeat last effect
1 4. AMPFLIFICATION
1 3. KEYBOARD LAYOUT
1 28000,
1 23
1 20,A*4-2;A; INK 2; BRIGHT I;"
1 2. ENVELOPES
1 1991 iS-DOS
1 1989-1991
1 16,-20: DRAW 40,O: DRAW 24,-50 8000 REM HELP!
1 16
1 1...9,
1 1. LOADING AND SAVING
1 0...8,
1 ------------------------------
1 ------------------------------
1 - DEC 10.
1 - KEMPSTON,
1 - DUN DARACH.
1 - 999
1 +5V
1 ****** " by holding ""SYMB.SHIFT"" and
1 (p+1) H3=63 THEN POKE ADDR+I,63: RUN
1 (XORBYTE)
1 (SCRIP),
1 (RYDE) -
1 (PULL LEVER),
1 (PEARL)
1 (PASS),
1 (GO SUB 1900
1 (ENBAS+A): DRAW 2,Y-X: LET X=Y: 900: REM repetitions
1 (DAIN).
1 (Cuchulain),
1 (COCAINE "FIRE".
1 (Adventure Games)
1 #0A1D+#9C40=#A65D
1 "WHAM+AY"
1 "WHAM" (
1 "SPECTROFON"
1 "SOLAR SM+",
1 "SHERLOCK".
1 "OPEN
1 "Mobile"
1 "Memory Edi- 6DB9 218C6F LD HL,#6F8C
1 "MAGNETRON" ("QUAZA-
1 "ISKRA-SOFT"
1 "CO-
1 ";AT 9,20;" ";AT 10,20;" DR,O: GO TO 960: REM blank effec
1 ": NEXT B: NEXT A 00: REM envelope
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ture - RPG (Role Playing Games -
1 raSOFT.
1 nture International -83) -
1 isDOS.
1 iS-DOS.
1 iS-DOS.
1 iS-DOS
1 TUJAD 27212,0: 27213,0
1 TR-DOS'
1 TR-DOS
1 TON, BITE LIP,
1 TO NEXT LEVEL",
1 TENDO (SUPERNINTENDO)
1 TE SOFTWARE",
1 TAU CETI 49116,0 -
1 TALKING HEDZ 52611,0
1 Spectrum.
1 STORMLORD 2.3
1 STORMLORD 2.1
1 SPAGHETTY WESTERN 33185,183
1 SEYMOUR: TAKE 1 48475,0
1 SEMITONES (0 TO 7) ? -
1 RUN "m.box+ay"
1 RED? (0 TO F) -
1 Q...O,
1 PUZZNIC 37913,0 -
1 POKES,
1 PHILTRE
1 OKE 23624,0: CLEAR 40999
1 OAD ""
1 MENU,
1 LOOP LIMIT MODIFICATION
1 LOAD "wham+ay"CODE
1 LOAD ""SCREEN$ : LOAD ""CODE : L
1 LD HL,#5CCB ;
1 LD BC,#70 ;
1 KAHN.
1 HOW MANY REPETITIONS -
1 HINT
1 GO SUB 30
1 GO SUB 2800
1 GENS41:
1 FDISP,
1 EXT.MODE
1 EXESCR.COM
1 DEL
1 Cymmerian.
1 COUNTLET
1 CHANNEL FX START + 0
1 CHANNEL 3 START + 0
1 CHANNEL 2 START + 0
1 CHANNEL 1 START + 0
1 CDPAC-
1 CALL #19E8 ;RECLAM_2
1 C583 35 DEC (HL)
1 C582 35 DEC (HL)
1 C580 28C3 JR Z,#C545
1 C57E FEBE CP #BE
1 C57D 7E LD A,(HL)
1 C57B 1807 JR #C584
1 C57A 34 INC (HL) 55250 (D7D2H).
1 C579 34 INC (HL)
1 C577 28CC JR Z,#C545
1 C575 FEFC CP #FC
1 C574 7E LD A,(HL)
1 C571 C378C3 JP #C378 C9 RET
1 C56E CDADBD CALL #BDAD EDB0 LDIR
1 C56C 2806 JR Z,#C574 012C01 LD BC,00300
1 C56A FE13 CP #13 1112FA LD DE,64018
1 C568 2813 JR Z,#C57D 64003: 2113C2 LD HL,49683
1 C566 FE04 CP #04 --------------------------------
1 C565 E1 POP HL C303FA JP 64003
1 C562 CDCAC3 CALL #C3CA EDB0 LDIR
1 C561 E5 PUSH HL 010004 LD BC,01064
1 C55E CD26BD CALL #BD26 1100FA LD DE,64000
1 C55C 3E03 LD A,#03 53550: 2160D1 LD HL,53600
1 C559 CDD9C8 CALL #C8D9
1 C557 10FC DJNZ #C555
1 C556 D7 RST #10
1 C555 79 LD A,C
1 C554 D7 RST #10
1 C553 AF XOR A
1 C552 D7 RST #10
1 C550 3E12 LD A,#12
1 C54F D7 RST #10
1 C54D 3E16 LD A,#16
1 C54B 0E20 LD C,#20
1 C54A 47 LD B,A
1 C548 D65E SUB #5E
1 C546 CB3F SRL A
1 C545 7E LD A,(HL)
1 C543 CB86 RES 0,(HL)
1 C540 213FC2 LD HL,#C23F ~~~~~~~~~~~~~~~
1 BEG. -
1 ASCII
1 9A9C9B9A9C9C9B9A9C9B9A9C9C9B9A9C
1 80 LET D$=("TR DOS" AND PEEK 4 576 REM undocumented keypress
1 6DB8 C9 RET
1 6DB6 D607 SUB #07
1 6DB1 D630 SUB #30
1 6DAF 4F LD C,A
1 6DAA 7B LD A,E
1 6DA9 4F LD C,A
1 6DA5 CB27 SLA A
1 6DA3 CB27 SLA A
1 6DA1 CB27 SLA A
1 6D9C 23 INC HL
1 6D9B 5E LD E,(HL)
1 6D9A 23 INC HL
1 6D99 56 LD D,(HL)
1 6D92 218C6F LD HL,#6F8C
1 6D8F DDE1 POP IX
1 6D8E E1 POP HL
1 69 RETURN 00: REM slide tune
1 67 FOR A=I TO 15: LET Y=2*PEEK 572 IF INKEY$="P" THEN GO TO 4
1 65 LET X=2*PEEK ENBAS: PLOT 16 570 IF INKEY$="V" THEN GO TO 7
1 64017
1 64004... RUN 5 -
1 62 PRINT PAPER 4;AT 8,20;" 560 IF INKEY$="B" THEN POKE AD
1 60 REM 00: REM set loop
1 60 RANDOMIZE USR 15619: REM : 40999
1 55: POKE 23606,104: POKE 23607,2
1 55 RETURN 555 IF INKEY$="L" THEN GO TO 4
1 52 FOR A=O TO 15: FOR B=I TO P
1 50008.
1 50 POKE 23675,88: POKE 23676,2
1 50 PLOT 15,15: DRAW 128,O: DRA
1 49 RETURN 530 INPUT ''':PRINT #O;AT O,O;"
1 44 IF PEEK 50768=191 THEN POK 520 REM IF ADDR=63000 THEN GO
1 42 POKE 60000,PEEK 50743 510 LET ADDR=FN P(49723)+I
1 40000 (#9
1 40 RANDOMIZE USR 49200 500 REM place effect
1 40 RANDOMIZE USR 15619: REM :
1 39 RETURN 450 GO TO 430
1 3800
1 38 RANDOMIZE USR 49220 SO": PAUSE 50: GO TO 990
1 36)=23755 THEN POKE 23739,111:
1 36 POKE 50743,P : PRINT #0;" I THOUGHT
1 34 IF P>128 THEN POKE 50768,1 DR,63: RUN
1 32 IF P<128 THEN POKE 50768,1 WANT IT HERE ? Y/N"
1 30 RANDOMIZE USR 15619: REM :
1 30 LET P=PEEK 60000: IF P=O TH 425 PRINT #0;" NO OTHER LOOP C
1 28000 (
1 20 BORDER 7: CLEAR 40999
1 1990-91
1 15
1 14
1 10 REM WHAM + MONS4
1 10 REM 420 INPUT ;
1 (SCROLL).
1 (SCRIP),
1 (Intellect, Wisdom).
1 "WHAM+AY".
1 "WHAM+AY"
1 "WHAM".
1 "Spectrum"
1 " HAN.:";EW;" START:";AW'"HOW MANY
1 " 7050 GO TO 7999
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~ CONT -
1 ~~~~~~ G3 -
1 ~~~~~ GO -
1 iS-DOS,
1 doom) 33947,n -
1 V = E I = D O = P
1 TUNNEL G2 -
1 TEXT/FONT EDI-
1 T-71 50mm MINI-MISSILE -
1 T-71 50mm EXPLOSIVE VARHEAD -
1 T-71 50mm EXPANSIVE VARHEAD -
1 START LI -
1 REMOTE CONTROL EXPLOSIVES -
1 RANDOMIZE USR 132 -
1 RANDOMIZE USR (PEEK 23635+256* D4).
1 Photon
1 POKE 23604,82: POKE 23605,75 - BLAZING THUNDER
1 POKE 23604,0 : POKE 23605,0 - CHEVY CHASE 41764,0 -
1 NO OTHER LOOP CORRESPONDS!
1 NANTUCKET CORPORATION
1 MULTI-PURPOSE UNIT. MILITARY
1 End_Text
1 D6A3: FF 00 00 06 0F 0F 0E 07
1 D69B: FF 40 40 40 40 40 80 00
1 D693: FF 80 80 86 8F 8F 8E 87
1 D68B: FF 46 46 44 44 48 50 E0
1 D683: FF B6 B3 93 99 88 84 83
1 D67B: FF E0 F8 FC FC 4E 46 46
1 D673: FF 9C 99 BB BB B7 B7 B6
1 D66B: FF E0 C0 C0 40 40 40 40
1 D663: FF 80 81 83 83 87 86 8E
1 D65B: FF 5C 58 58 78 70 70 60
1 D653: FF 80 80 80 80 80 80 80
1 D64B: 00 10 28 2C 4C 4C 4C 4C
1 D643: FF 00 00 00 00 00 00 00 ~~~~~~~~~~~~~~~~~~~~~~~~~~
1 D63B: 00 00 00 00 00 00 00 00
1 CONTROL P -
1 CHANNEL 1 START + 8
1 CARTRIDGE 12 CAL 4 SUBMUNITION
1 C51E CA83C7 JP Z,#C798
1 C500 CD5CD5 CALL #D55C 99999999999999999999999999999999
1 BASIC-
1 ADVANCED MEDICAL KIT INCLUDE
1 ADS-SMG 11 -
1 AA-1 CARTRIDGE 12 CAL INCLUDE
1 A>SAVE "GENS41"CODE 40000,11010
1 A>LOAD "GENS4"CODE 40000
1 A64E...A683, A634...A645, #0036+#9
1 A3E7...A427, B8E5...B8F0.
1 >P1,1000,A:EXAMPLE -
1 90 NEXT f
1 80 LET x1=x2: LET y1=y2
1 8 RANDOMIZE USR 41000 ) THEN POKE ADDR+I,63: RUN
1 70 DRAW x2-x1,y2-y1
1 7 STOP 417 IF FN P(49719)+I=FN P(49721
1 60 LET y2=50*SIN f+88 14-
1 6 RANDOMIZE USR 15616 ) THEN POKE ADDR+I,63: RUN
1 50 LET x2=50*COS f+127 * * *
1 5. WHITE NOISE EFFECTS -
1 5. COMPILE & SAVE -
1 5 GO TO 9990 416 IF FN P(49715)+I=FN P(49717
1 40 FOR f=0 TO t STEP dt
1 4. LISTEN TO TUNE -
1 4. CONTROL (
1 4. AMPFLIFICATION -
1 4 GO TO 0 ) THEN POKE ADDR+I,63: RUN
1 30 LET dt=t/32: PLOT x1,y1
1 3. TUNNEL (
1 3. CHANGE SAVE & LOAD PERIP- (
1 3 POKE 43519,0 415 IF FN P(49711)+I=FN P(49713
1 200 RANDOMIZE USR 15619: REM :
1 20 LET x1=177: LET y1=98
1 2. WEAPON (
1 2 DEF FN p(p)=PEEK p+256*PEEK 414 IF ACH1=63 OR ACH2=63 OR AC
1 1045 - SAVE -
1 1040 - SYST MENU -
1 1030 - ENVELOPES -
1 1021 - EXT.MODE -
1 10 INPUT t
1 1. START (
1 1. SET PRESET NOISE VALUES -
1 1 GO TO 9000 ))
1 0 REM (C) 1986 MARK TIME ))
1 "GOLDEN EAGLE"
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~~~
1 MAD & SHISOFT
1 C63E ... ... ...
1 C63B 0E00 LD C,#00
1 C62F 0E01 LD C,#01
1 C62E 1B DEC DE
1 C629 ED5B31C2 LD DE,(#C231)
1 C589 0D DEC C
1 C587 10FE DJNZ #C587
1 60 RANDOMIZE USR 15619: REM :
1 5CE3 ......
1 5CE0 EDB0 LDIR
1 5CDD 010001 LD BC,#0100
1 5CDA 1158FE LD DE,#FE58
1 5CD4 3B DEC SP
1 5CD3 3B DEC SP
1 50 POKE 23675,88: POKE 23676,2
1 30 RANDOMIZE USR 15619: REM :
1 176-36-05, 176-36-87.
1 10 REM Universal
1 .... ......
1 ... ... ... ...
1 ~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~
1 [TRUE VIDEO] -
1 T9-"TURTLE" BULLET PROOF PLAS-
1 RUN -
1 NOENEMIG -
1 GAME.CODE
1 EXEPACK.COM
1 D6E3: FF 84 88 90 A0 80 80 80
1 D6D3: FF 80 80 80 81 81 83 82
1 D6C3: FF 9F 8E 80 80 80 80 80
1 D6BB: FF 80 C0 E0 60 76 76 70
1 D6AB: 80 80 80 80 80 80 80 80
1 CONGRA -
1 COMENZAR -
1 C7A3 C378C3 JP #C378
1 C798 CD18C9 CALL #C918
1 >G,,A:EXAMPLE -
1 52787,0 -
1 5.
1 49560,0 -
1 49010,0 -
1 48471,0 -
1 33285,0 -
1 33256,0 -
1 27489,0 -
1 26897,201 -
1 2. ENVELOPES -
1 2-5 K
1 (47
1 (35172)-2-56-09
1 "Mega Pro & Contra"
1 ~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~~
1 8.3.
1 7 TAKTS-PERIOD:
1 5.
1 3.
1 2.
1 ... ...
1 (C)
1 "...
1 ~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~ (tr
1 ~~~~~~~~~~~~~~~~~
1 WHAT DO GODS SEE?
1 TAI-CHI TORTOISE
1 RATS ARE VAIN
1 RATS = VAIN, "
1 R = V V = R KAYLETH
1 N = S
1 I = T S = N
1 C9 RET
1 A = A T = I
1 48647,0 -
1 2112FA LD HL,64018
1 1160D1 LD DE,53600
1 1113C2 LD DE,49683 ENTER
1 1.
1 012C01 LD BC,00300
1 010004 LD BC,01064
1 ~~~~~~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~~~~~
1 THE ICE TEMPLE
1 TERRAMEX
1 ROLAND'S RAT RACE
1 ROBIN HOOD ("Codemasters")
1 MAT 2
1 D71DH: 10 00 11 07
1 D6FBH: 10 00 11 07
1 7. HELP PAGE
1 6. EDIT MODE
1 5. SET TEMPO
1 4. ENVELOPES
1 3. SYST MENU
1 2. SAVE TUNE
1 1. LOAD TUNE
1 ~~~~~~~~~~~~~~~ 1)
1 6.
1 55
1 10
1 (C) 1990 ALANSOFT 413 LET ACH3=PEEK (I+FN P(49719
1 ~~~~~~~~~~~~~~~
1 ~~~~~~~~~~~~~~
1 ~~~~~~~~
1 Herne Hill 1
1 7.
1 53074,0 -
1 53000,0 -
1 33006,n -
1 27748,x -
1 "Mobile"
1 ~~~~~~~~~~~~~
1 THE VIKING".
1 SYST MENU.
1 SKARS A PEARL
1 SET TEMPO.
1 RATS ARE VAIN
1 GODS SEE ALL
1 EDIT MODE.
1 61456,0 - 2
1 49497,0 -
1 * * *
1 * * *
1 * * *
1 (
1 ~~~~~~~~~~~~
1 HAMMER
1 BROADAXE
1 (
1 ~~~~~~~~~~
1 ~~~~~~~ 27492,0 -
1 71
1 50625,167 -
1 49851,167 -
1 Y/N
1 POKES 26897,201 -
1 ;
1 16 0C 1C 35 21
1 16 0A 1C 31 32
1 16 09 1C 2E 22
1 16 06 1C 29 2A
1 16 02 1C 20 22
1 * * *
1 ;
1 56059,0 -
1 52367,0 -
1 49000,0 -
1 19
1 *********************************
1 PRINT AT 19,0;"
1 * * *
1 "
1 ORG 26000 ;
1 NOP
1 DEFM "STUDIO TM'M."
1 DEFM "PROGRAMMED BY"
1 DEFM " TITOV MAXIM"
1 DEFM " (C)1993 "
1 DEFB 4
1 87
1 86
1 7
1 79
1 51
1 * * *
1 ;
1 48
1 ;"
1 4
1 - 96 -
1 - 95 -
1 - 94 -
1 - 93 -
1 - 92 -
1 - 91 -
1 - 90 -
1 - 9 -
1 - 89 -
1 - 88 -
1 - 87 -
1 - 86 -
1 - 85 -
1 - 84 -
1 - 83 -
1 - 82 -
1 - 81 -
1 - 80 -
1 - 8 -
1 - 79 -
1 - 78 -
1 - 77 -
1 - 76 -
1 - 75 -
1 - 74 -
1 - 73 -
1 - 72 -
1 - 71 -
1 - 70 -
1 - 7 -
1 - 69 -
1 - 68 -
1 - 67 -
1 - 66 -
1 - 65 -
1 - 64 -
1 - 63 -
1 - 62 -
1 - 61 -
1 - 60 -
1 - 6 -
1 - 59 -
1 - 58 -
1 - 57 -
1 - 56 -
1 - 55 -
1 - 54 -
1 - 53 -
1 - 52 -
1 - 51 -
1 - 50 -
1 - 5 -
1 - 49 -
1 - 48 -
1 - 47 -
1 - 46 -
1 - 45 -
1 - 44 -
1 - 43 -
1 - 42 -
1 - 41 -
1 - 40 -
1 - 4 -
1 - 39 -
1 - 38 -
1 - 37 -
1 - 36 -
1 - 35 -
1 - 34 -
1 - 33 -
1 - 32 -
1 - 31 -
1 - 30 -
1 - 3 -
1 - 29 -
1 - 28 -
1 - 27 -
1 - 26 -
1 - 25 -
1 - 24 -
1 - 23 -
1 - 22 -
1 - 21 -
1 - 20 -
1 - 2 -
1 - 19 -
1 - 18 -
1 - 17 -
1 - 16 -
1 - 15 -
1 - 14 -
1 - 13 -
1 - 12 -
1 - 11 -
1 - 10 -
1 H3=63 THEN POKE ADDR,63: RUN
1 DE (
1 A65C 2A3600 LD HL,(#9C76-ABS)
1 98989898989898989898989898989898
1 6DC3 2825 JR Z,#6DEA
1 6DBE CD6B6D CALL #6D6B
1 6DB5 D8 RET C
1 -8 0 <-
1 -
1 "
1 T -
1 STORMLORD 2.2
1 SKAR.
1 SE),
1 SC -
1 G1 -
1 500
1 412 LET ACH2=PEEK (I+FN P(49715
1 1994-
1 "
1 ;(
1 6)
1 53774,0: 47827,201 -
1 49308,0 -
1 48968,0 -
1 48447,201 -
1 "...
1 ^
1
1
1
1
1
1
1
1